dynarr-ptr.exp: Add ptype tests.

This patch adds a number of "ptype" tests to gdb.dwarf2/dynarr-ptr.exp.

gdb/testsuite/ChangeLog:

        * gdb.dwarf2/dynarr-ptr.exp: Add a few ptype tests.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 66b50a94992b5da7df185b1acc2fbaa333764a81..fd932a56b3cb6ec33c44668b1da142e266b486da 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2014-09-10  Joel Brobecker  <brobecker@adacore.com>
+
+       * gdb.dwarf2/dynarr-ptr.exp: Add a few ptype tests.
+
 2014-09-10  Joel Brobecker  <brobecker@adacore.com>
 
        * gdb.dwarf2/dynarr-ptr.exp: Add 'first, 'last and 'length tests.

diff --git a/gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp b/gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp
index 696c76519fc2f3968d2264b481e07ffe776cc6bb..3730837aa30010d896f732f7b063f2ba7d89c824 100644 (file)
--- a/gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp
+++ b/gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp
@@ -155,6 +155,9 @@ gdb_test "print foo.three_ptr.all'last" \
 gdb_test "print foo.three_ptr.all'length" \
          " = 3"
 
+gdb_test "ptype foo.three_ptr.all" \
+         " = array \\(<>\\) of integer"
+
 # foo.three_ptr
 
 gdb_test "print foo.three_ptr(1)" \
@@ -175,6 +178,9 @@ gdb_test "print foo.three_ptr'last" \
 gdb_test "print foo.three_ptr'length" \
          " = 3"
 
+gdb_test "ptype foo.three_ptr" \
+         " = access array \\(<>\\) of integer"
+
 # foo.three_ptr_tdef.all
 
 gdb_test "print foo.three_ptr_tdef.all" \
@@ -198,6 +204,9 @@ gdb_test "print foo.three_ptr_tdef.all'last" \
 gdb_test "print foo.three_ptr_tdef.all'length" \
          " = 3"
 
+gdb_test "ptype foo.three_ptr_tdef.all" \
+         " = array \\(<>\\) of integer"
+
 # foo.three_ptr_tdef
 
 gdb_test "print foo.three_ptr_tdef(1)" \
@@ -218,6 +227,9 @@ gdb_test "print foo.three_ptr_tdef'last" \
 gdb_test "print foo.three_ptr_tdef'length" \
          " = 3"
 
+gdb_test "ptype foo.three_ptr_tdef" \
+         " = access array \\(<>\\) of integer"
+
 # foo.five_ptr.all
 
 gdb_test "print foo.five_ptr.all" \
@@ -247,6 +259,9 @@ gdb_test "print foo.five_ptr.all'last" \
 gdb_test "print foo.five_ptr.all'length" \
          " = 5"
 
+gdb_test "ptype foo.five_ptr.all" \
+         " = array \\(<>\\) of integer"
+
 # foo.five_ptr
 
 gdb_test "print foo.five_ptr(2)" \
@@ -273,6 +288,9 @@ gdb_test "print foo.five_ptr'last" \
 gdb_test "print foo.five_ptr'length" \
          " = 5"
 
+gdb_test "ptype foo.five_ptr" \
+         " = access array \\(<>\\) of integer"
+
 # foo.five_ptr_tdef.all
 
 gdb_test "print foo.five_ptr_tdef.all" \
@@ -302,6 +320,9 @@ gdb_test "print foo.five_ptr_tdef.all'last" \
 gdb_test "print foo.five_ptr_tdef.all'length" \
          " = 5"
 
+gdb_test "ptype foo.five_ptr_tdef.all" \
+         " = array \\(<>\\) of integer"
+
 # foo.five_ptr_tdef
 
 gdb_test "print foo.five_ptr_tdef(2)" \
@@ -327,3 +348,6 @@ gdb_test "print foo.five_ptr_tdef'last" \
 
 gdb_test "print foo.five_ptr_tdef'length" \
          " = 5"
+
+gdb_test "ptype foo.five_ptr_tdef" \
+         " = access array \\(<>\\) of integer"