From 419e626baa4713de61ec4d6f615f9ab4cea91a52 Mon Sep 17 00:00:00 2001 From: Andrew Cagney Date: Mon, 12 Jul 2004 21:39:35 +0000 Subject: [PATCH] 2004-07-12 Andrew Cagney * gdb.base/annota1.exp: Cleanup corefile test name. * gdb.base/annota3.exp: Ditto. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.base/annota1.exp | 18 +++++++++--------- gdb/testsuite/gdb.base/annota3.exp | 18 +++++++++--------- 3 files changed, 23 insertions(+), 18 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 620d487..723a1f2 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2004-07-12 Andrew Cagney + * gdb.base/annota1.exp: Cleanup corefile test name. + * gdb.base/annota3.exp: Ditto. + +2004-07-12 Andrew Cagney + * gdb.base/signals.exp: Clean up copyright, re-indent. * gdb.base/attach.exp: Replace send_gdb and gdb_expect with diff --git a/gdb/testsuite/gdb.base/annota1.exp b/gdb/testsuite/gdb.base/annota1.exp index dc8ba29..0c894df 100644 --- 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 93086ef..27c0960 100644 --- 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 -- 2.7.4