From: Michael Snyder <msnyder@vmware.com>
Date: Sat, 5 Jan 2002 02:40:47 +0000 (+0000)
Subject: 2002-01-04  Michael Snyder  <msnyder@redhat.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8ddad156deb051cc5d76354ac78ae10e2663819b;p=binutils-gdb.git

2002-01-04  Michael Snyder  <msnyder@redhat.com>

	* gdb.base/maint.exp: Add tests for maint info sections options.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 70c655e7861..27c8a05435e 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-04  Michael Snyder  <msnyder@redhat.com>
+
+	* gdb.base/maint.exp: Add tests for maint info sections options.
+
 Fri Dec 21 09:42:11 2001  Jeffrey A Law  (law@redhat.com)
 
 	* gdb.base/default.exp: Remove bogus hppa*-hp-hpux* xfails.
diff --git a/gdb/testsuite/gdb.base/maint.exp b/gdb/testsuite/gdb.base/maint.exp
index 145f71d3278..f4d25772fa4 100644
--- a/gdb/testsuite/gdb.base/maint.exp
+++ b/gdb/testsuite/gdb.base/maint.exp
@@ -385,6 +385,34 @@ gdb_expect  {
         timeout         { fail "(timeout) maint info sections" }
         }
 
+# Test for new option: maint info sections <section name>
+# If you don't have a .text section, this will require tweaking.
+send_gdb "maint info sections .text\n"
+gdb_expect {
+    -re ".*bss.*$gdb_prompt $"      { fail "maint info sections .text" }
+    -re ".*data.*$gdb_prompt $"     { fail "maint info sections .text" }
+    -re ".* .text .*$gdb_prompt $"  { pass "maint info sections .text" }
+    timeout               { fail "(timeout) maint info sections .text" }
+}
+
+# Test for new option: CODE section flag
+# If your data section is tagged CODE, xfail this test.
+send_gdb "maint info sections CODE\n"
+gdb_expect {
+    -re ".* .data .*$gdb_prompt $" { fail "maint info sections CODE" }
+    -re ".* .text .*$gdb_prompt $" { pass "maint info sections CODE" }
+    timeout              { fail "(timeout) maint info sections CODE" }
+}
+
+# Test for new option: DATA section flag
+# If your text section is tagged DATA, xfail this test.
+send_gdb "maint info sections DATA\n"
+gdb_expect {
+    -re ".* .text .*$gdb_prompt $" { fail "maint info sections DATA" }
+    -re ".* .data .*$gdb_prompt $" { pass "maint info sections DATA" }
+    timeout              { fail "(timeout) maint info sections DATA" }
+}
+
 send_gdb "maint info breakpoints\n"
 gdb_expect {
     -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:75\r\n\[ \t\]+breakpoint already hit 1 time\r\n.*$gdb_prompt $"\