2004-07-12 Andrew Cagney <cagney@gnu.org>

	* gdb.base/annota1.exp: Cleanup corefile test name.
	* gdb.base/annota3.exp: Ditto.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 620d487af559ece1ad1d7a91fdcd4d87bac45606..723a1f2eeb7f833b109bb0c8d2a0a97874d716b5 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-12  Andrew Cagney  <cagney@gnu.org>
+
+       * gdb.base/annota1.exp: Cleanup corefile test name.
+       * gdb.base/annota3.exp: Ditto.
+
 2004-07-12  Andrew Cagney  <cagney@gnu.org>
 
        * gdb.base/signals.exp: Clean up copyright, re-indent.

diff --git a/gdb/testsuite/gdb.base/annota1.exp b/gdb/testsuite/gdb.base/annota1.exp
index dc8ba29ca4d0ac073d146fea531f8a8dc516a926..0c894df47bef3e13b23f5bab7529dab0b0113d67 100644 (file)
--- a/gdb/testsuite/gdb.base/annota1.exp
+++ b/gdb/testsuite/gdb.base/annota1.exp
@@ -459,20 +459,20 @@ gdb_expect {
 }
 
 
-# Check for production of a core file
-# and remove it!
+# Check for production of a core file and remove it!
 
 set exec_output [remote_exec build "ls core"]
 
+set test "cleanup core file"
 if [ regexp "core not found" $exec_output]  {
-    pass "No core dumped"
+    pass "$test (not dumped)"
 } else {
-  if [ regexp "No such file or directory" $exec_output] {
-      pass "No core dumped"
-  } else {
-      remote_exec build "rm -f core"
-      pass "Core dumped and removed"
-  }
+    if [ regexp "No such file or directory" $exec_output] {
+       pass "$test (not dumped)"
+    } else {
+       remote_exec build "rm -f core"
+       pass "$test (removed)"
+    }
 }
 
 # restore the original prompt for the rest of the testsuite

diff --git a/gdb/testsuite/gdb.base/annota3.exp b/gdb/testsuite/gdb.base/annota3.exp
index 93086ef609fcb60b5dbd96c277fd318b4405b3ce..27c0960417b4f90683f8b93612a98099409e1447 100644 (file)
--- a/gdb/testsuite/gdb.base/annota3.exp
+++ b/gdb/testsuite/gdb.base/annota3.exp
@@ -387,20 +387,20 @@ gdb_expect_list "signal sent" "$gdb_prompt$" {
 }
 
 
-# Check for production of a core file
-# and remove it!
+# Check for production of a core file and remove it!
 
 set exec_output [remote_exec build "ls core"]
 
+set test "cleanup core file"
 if [ regexp "core not found" $exec_output]  {
-    pass "No core dumped"
+    pass "$test (not dumped)"
 } else {
-  if [ regexp "No such file or directory" $exec_output] {
-      pass "No core dumped"
-  } else {
-      remote_exec build "rm -f core"
-      pass "Core dumped and removed"
-  }
+    if [ regexp "No such file or directory" $exec_output] {
+       pass "$test (not dumped)"
+    } else {
+       remote_exec build "rm -f core"
+       pass "$test (removed)"
+    }
 }
 
 # restore the original prompt for the rest of the testsuite