This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[commit] testsuite tweaks
- From: Michael Snyder <msnyder at vmware dot com>
- To: "gdb-patches at sourceware dot org" <gdb-patches at sourceware dot org>
- Date: Thu, 22 Oct 2009 12:49:07 -0700
- Subject: [commit] testsuite tweaks
per Joel's feedback
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.
Index: consecutive-reverse.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.reverse/consecutive-reverse.exp,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
53c53
< -re "($hex).*\[\r\n\]+($hex).*$gdb_prompt $" {
---
> -re "=> ($hex).*\[\r\n\]+ ($hex).*$gdb_prompt $" {
71,72c71,72
< send_gdb "step\n"
< gdb_expect {
---
> set testmsg "stopped at bp, 2nd instr"
> gdb_test_multiple "step" $testmsg {
81,87d80
< -re ".*$gdb_prompt $" {
< fail "stopped at bp, 2nd instr"
< }
< timeout {
< fail "stopped at bp, 2nd instr (timeout)"
<
< }
Index: finish-reverse.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.reverse/finish-reverse.exp,v
retrieving revision 1.2
retrieving revision 1.3
diff -r1.2 -r1.3
231,232d230
<
< return 0
Index: sigall-reverse.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.reverse/sigall-reverse.exp,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
265,274c265,267
< 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"
Index: step-reverse.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.reverse/step-reverse.exp,v
retrieving revision 1.2
retrieving revision 1.3
diff -r1.2 -r1.3
255d254
< return 0
Index: until-reverse.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.reverse/until-reverse.exp,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
128,129d127
<
<
Index: watch-reverse.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.reverse/watch-reverse.exp,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
125,127d124
<
<
< return 0