diff options
| author | Joel Brobecker <brobecker@adacore.com> | 2014-09-01 18:42:52 +0200 |
|---|---|---|
| committer | Joel Brobecker <brobecker@adacore.com> | 2014-09-10 06:33:25 -0700 |
| commit | 963349348e119396aa1a326922624aa78398e7e7 (patch) | |
| tree | fd8a2ac14303b96d771a85742db8d94c30331520 | |
| parent | eb47903935f507a11b6367d4a997b8ac95068c4c (diff) | |
| download | gdb-963349348e119396aa1a326922624aa78398e7e7.zip gdb-963349348e119396aa1a326922624aa78398e7e7.tar.gz gdb-963349348e119396aa1a326922624aa78398e7e7.tar.bz2 | |
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.
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp | 24 |
2 files changed, 28 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 66b50a9..fd932a5 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,9 @@ 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. 2014-09-10 Joel Brobecker <brobecker@adacore.com> diff --git a/gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp b/gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp index 696c765..3730837 100644 --- 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" |