This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
Re: [RFA] Only need one "maint info breakpoint" test
- From: Andrew Cagney <ac131313 at cygnus dot com>
- To: fnf at redhat dot com, Fernando Nasser <fnasser at redhat dot com>
- Cc: gdb-patches at sources dot redhat dot com
- Date: Sun, 20 Jan 2002 19:12:28 -0500
- Subject: Re: [RFA] Only need one "maint info breakpoint" test
- References: <200201060714.g067E9l07719@fred.ninemoons.com>
FYI,
Andrew
> 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 {
>
>