This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[RFA] Only need one "maint info breakpoint" test
- From: Fred Fish <fnf at fred dot ninemoons dot com>
- To: gdb-patches at sources dot redhat dot com
- Cc: fnf at redhat dot com
- Date: Sun, 6 Jan 2002 00:14:09 -0700 (MST)
- Subject: [RFA] Only need one "maint info breakpoint" test
- Reply-to: fnf at redhat dot com
We really only need to run the "maint info breakpoints" test once and
optionally accept the "shlib events" variation. Also tweaked the
whitespace for consistency with the other nearby tests.
2002-01-05 Fred Fish <fnf@redhat.com>
* gdb.base/maint.exp: Simplify the "maint info breakpoints" test to
optionally accept the "shlib events" variation.
Index: gdb.base/maint.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/maint.exp,v
retrieving revision 1.9
diff -c -p -r1.9 maint.exp
*** maint.exp 2002/01/05 02:40:47 1.9
--- maint.exp 2002/01/06 07:12:22
*************** gdb_expect {
*** 415,446 ****
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 $"\
! { pass "maint info breakpoints" }
! -re ".*$gdb_prompt $" { fail "maint info breakpoints" }
! timeout { fail "(timeout) maint info breakpoints" }
}
-
- # Try it again, and check for shlib event info. Not supported everywhere.
- if {! ([istarget "hppa*-*-hpux*"]
- || [istarget "*-*-linux*"]
- || [istarget "*-*-solaris*"])} then {
- setup_xfail "*-*-*"
- }
- 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 $"\
- { pass "maint info breakpoints" }
- -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-1\[ \t\]+shlib events\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex.*breakpoint already hit.*$gdb_prompt $"\
- { pass "maint info breakpoints: shlib events" }
- -re ".*$gdb_prompt $" {
- fail "maint info breakpoints: shlib events"
- }
- timeout {
- fail "(timeout) maint info breakpoints: shlib events"
- }
- }
-
send_gdb "maint print\n"
gdb_expect {
--- 415,427 ----
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 $"\
! { pass "maint info breakpoints" }
! -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-1\[ \t\]+shlib events\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex.*breakpoint already hit.*$gdb_prompt $"\
! { pass "maint info breakpoints (with shlib events)" }
! -re ".*$gdb_prompt $" { fail "maint info breakpoints" }
! timeout { fail "(timeout) maint info breakpoints" }
}
send_gdb "maint print\n"
gdb_expect {