From: Michael Snyder <msnyder@vmware.com>
Date: Thu, 22 Oct 2009 19:53:10 +0000 (+0000)
Subject: 2009-10-22  Michael Snyder  <msnyder@vmware.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4cf866a3ee7728ec7e6e3f8f3bb8a57f8c1818ba;p=binutils-gdb.git

2009-10-22  Michael Snyder  <msnyder@vmware.com>

	* gdb.reverse/consecutive-reverse.exp: Substitute gdb_test_multiple
	for gdb_expect.  Adjust one test's expect strings for the new
	format of disassemble.
	* gdb.reverse/finish-reverse.exp: Delete 'return'.
	* gdb.reverse/sigall-reverse.exp: Substitute gdb_test for
	gdb_test_multiple.
	* gdb.reverse/step-reverse.exp: Delete 'return'.
	* gdb.reverse/until-reverse.exp: Delete blank lines.
	* gdb.reverse/watch-reverse.exp: Delete blank lines.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 95cf9ece936..9d6113c570d 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,15 @@
+2009-10-22  Michael Snyder  <msnyder@vmware.com>
+
+	* gdb.reverse/consecutive-reverse.exp: Substitute gdb_test_multiple
+	for gdb_expect.  Adjust one test's expect strings for the new
+	format of disassemble.
+	* gdb.reverse/finish-reverse.exp: Delete 'return'.
+	* gdb.reverse/sigall-reverse.exp: Substitute gdb_test for
+	gdb_test_multiple.
+	* gdb.reverse/step-reverse.exp: Delete 'return'.
+	* gdb.reverse/until-reverse.exp: Delete blank lines.
+	* gdb.reverse/watch-reverse.exp: Delete blank lines.
+
 2009-10-21  Paul Pluzhnikov  <ppluzhnikov@google.com>
 
 	* gdb.base/consecutive.exp: Adjust.
diff --git a/gdb/testsuite/gdb.reverse/consecutive-reverse.exp b/gdb/testsuite/gdb.reverse/consecutive-reverse.exp
index e2ba83ad7c5..d3ab9684521 100644
--- a/gdb/testsuite/gdb.reverse/consecutive-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/consecutive-reverse.exp
@@ -50,7 +50,7 @@ gdb_expect {
     global foo2_addr
     global gdb_prompt
 
-    -re "($hex).*\[\r\n\]+($hex).*$gdb_prompt $" {
+    -re "=> ($hex).*\[\r\n\]+   ($hex).*$gdb_prompt $" {
 	set foo1_addr $expect_out(1,string)
 	set foo2_addr $expect_out(2,string)
 	pass "get breakpoint address for foo"
@@ -68,8 +68,8 @@ gdb_expect {
 gdb_test "break \*$foo2_addr" "Breakpoint $decimal at $foo2_addr: file .*" \
 	"set bp, 2nd instr"
 
-send_gdb "step\n"
-gdb_expect {
+set testmsg "stopped at bp, 2nd instr"
+gdb_test_multiple "step" $testmsg {
     -re "Breakpoint $decimal, ($hex) in foo.*$gdb_prompt $" {
 	set stop_addr $expect_out(1,string)
 	if [eval expr "$foo2_addr == $stop_addr"] then {
@@ -78,13 +78,6 @@ gdb_expect {
 	    fail "stopped at bp, 2nd instr (wrong address)"
 	}
     }
-    -re ".*$gdb_prompt $" {
-	fail "stopped at bp, 2nd instr"
-    }
-    timeout {
-	fail "stopped at bp, 2nd instr (timeout)"
-
-    }
 }
 
 ###
diff --git a/gdb/testsuite/gdb.reverse/finish-reverse.exp b/gdb/testsuite/gdb.reverse/finish-reverse.exp
index ddf8568bdc7..47e1b3d8f4d 100644
--- a/gdb/testsuite/gdb.reverse/finish-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/finish-reverse.exp
@@ -228,5 +228,3 @@ gdb_test_multiple "finish" "$test_msg" {
 	pass "$test_msg"
     }
 }
-
-return 0
diff --git a/gdb/testsuite/gdb.reverse/sigall-reverse.exp b/gdb/testsuite/gdb.reverse/sigall-reverse.exp
index fa49ad51c8f..23c08bd11a1 100644
--- a/gdb/testsuite/gdb.reverse/sigall-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/sigall-reverse.exp
@@ -262,16 +262,9 @@ gdb_test "continue" \
     "get signal TERM"
 gdb_test "continue" "Breakpoint.*handle_TERM.*" "send signal TERM"
 
-set testmsg "continue to sigall exit"
-gdb_test_multiple "continue" $testmsg {
-    -re ".*Do you want to stop the program.*$" {
-	send_gdb "yes\n"
-	exp_continue
-    }
-    -re "$gdb_prompt " {
-	pass $testmsg
-    }
-}
+gdb_test "continue" "Program received .*" "continue to sigall exit" \
+    "The next instruction is syscall exit_group.* program...y. or n. " \
+    "yes"
 
 test_one_sig_reverse TERM
 test_one_sig_reverse 63
diff --git a/gdb/testsuite/gdb.reverse/step-reverse.exp b/gdb/testsuite/gdb.reverse/step-reverse.exp
index 31a707d86e4..cf4634a7a05 100644
--- a/gdb/testsuite/gdb.reverse/step-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/step-reverse.exp
@@ -252,4 +252,3 @@ gdb_test "next" ".*NEXT TEST 1.*" "reverse next test 2"
 # gdb_test "set exec-dir forward" "" "set forward execution"
 # gdb_continue_to_end "step-reverse.exp"
 
-return 0
diff --git a/gdb/testsuite/gdb.reverse/until-reverse.exp b/gdb/testsuite/gdb.reverse/until-reverse.exp
index 6667fa24574..bfff18b3f12 100644
--- a/gdb/testsuite/gdb.reverse/until-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/until-reverse.exp
@@ -125,5 +125,3 @@ gdb_test "advance $bp_location19" \
 gdb_test "until $bp_location7" \
     "factorial .value=6..*$srcfile:$bp_location7.*" \
     "reverse-until to entry of factorial"
-
-
diff --git a/gdb/testsuite/gdb.reverse/watch-reverse.exp b/gdb/testsuite/gdb.reverse/watch-reverse.exp
index ab9efa89fb6..d843e31cf11 100644
--- a/gdb/testsuite/gdb.reverse/watch-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/watch-reverse.exp
@@ -122,6 +122,3 @@ gdb_test "continue" \
 gdb_test "continue" \
     ".*\[Ww\]atchpoint.*ival3.*Old value = 0.*New value = -1.*ival3 = count; ival4 = count;.*" \
     "watchpoint hit in reverse, fifth time"
-
-
-return 0