diff options
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/testsuite/gdb.gdbtk/ChangeLog | 5 | ||||
-rw-r--r-- | gdb/testsuite/gdb.gdbtk/insight-support.exp | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.gdbtk/ChangeLog b/gdb/testsuite/gdb.gdbtk/ChangeLog index 6001ce744bf..3360312e41b 100644 --- a/gdb/testsuite/gdb.gdbtk/ChangeLog +++ b/gdb/testsuite/gdb.gdbtk/ChangeLog @@ -1,3 +1,8 @@ +2007-02-08 Andreas Schwab <schwab@suse.de> + + * insight-support.exp (gdbtk_start): Return error status instead + of aborting the whole testsuite run. + 2006-09-19 Keith Seitz <keiths@redhat.com> * Makefile.in: Change all instances of configure.in to refer to diff --git a/gdb/testsuite/gdb.gdbtk/insight-support.exp b/gdb/testsuite/gdb.gdbtk/insight-support.exp index e1e88896a1d..e5815206353 100644 --- a/gdb/testsuite/gdb.gdbtk/insight-support.exp +++ b/gdb/testsuite/gdb.gdbtk/insight-support.exp @@ -59,7 +59,7 @@ proc gdbtk_start {test} { set INSIGHT $newGDB } else { perror "Cannot find Insight executable" - exit 1 + return "ERROR gdbtk_start" } verbose "Starting $INSIGHT -nx -q --tclcommand=$test" @@ -67,13 +67,13 @@ proc gdbtk_start {test} { set real_test [which $test] if {$real_test == 0} { perror "$test is not found" - exit 1 + return "ERROR gdbtk_start" } if {![is_remote host]} { if { [which $INSIGHT] == 0 } { perror "$INSIGHT does not exist." - exit 1 + return "ERROR gdbtk_start" } } |