This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[pushed/Ada 4/4] dynarr-ptr.exp: Add ptype tests.
- From: Joel Brobecker <brobecker at adacore dot com>
- To: gdb-patches at sourceware dot org
- Date: Wed, 10 Sep 2014 06:39:09 -0700
- Subject: [pushed/Ada 4/4] dynarr-ptr.exp: Add ptype tests.
- Authentication-results: sourceware.org; auth=none
- References: <1410356349-5661-1-git-send-email-brobecker at adacore dot com>
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.
---
gdb/testsuite/ChangeLog | 4 ++++
gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp | 24 ++++++++++++++++++++++++
2 files changed, 28 insertions(+)
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"
--
1.9.1