From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 28208 invoked by alias); 21 Jan 2002 00:12:50 -0000 Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sources.redhat.com Received: (qmail 28174 invoked from network); 21 Jan 2002 00:12:49 -0000 Received: from unknown (HELO localhost.cygnus.com) (24.114.42.213) by sources.redhat.com with SMTP; 21 Jan 2002 00:12:49 -0000 Received: from cygnus.com (localhost [127.0.0.1]) by localhost.cygnus.com (Postfix) with ESMTP id C6C273F0A; Sun, 20 Jan 2002 19:12:28 -0500 (EST) Message-ID: <3C4B5CEC.8010403@cygnus.com> Date: Sun, 20 Jan 2002 16:12:00 -0000 From: Andrew Cagney User-Agent: Mozilla/5.0 (X11; U; NetBSD macppc; en-US; rv:0.9.7) Gecko/20020103 X-Accept-Language: en-us MIME-Version: 1.0 To: fnf@redhat.com, Fernando Nasser Cc: gdb-patches@sources.redhat.com Subject: Re: [RFA] Only need one "maint info breakpoint" test References: <200201060714.g067E9l07719@fred.ninemoons.com> Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-SW-Source: 2002-01/txt/msg00611.txt.bz2 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 > > * 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 { > >