From: Bob Manson Date: Thu, 3 Apr 1997 17:47:33 +0000 (+0000) Subject: * lib/gdb.exp(gdb_suppress_tests): Add explanation for subsequent X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ddb594ac2a5b2111c46817e96c66959b71088a15;p=binutils-gdb.git * lib/gdb.exp(gdb_suppress_tests): Add explanation for subsequent failures. (gdb_stop_suppressing_tests): Note that tests have restarted. --- diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 68807ee98df..57927d6ce51 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +Thu Apr 3 09:38:53 1997 Bob Manson + + * lib/gdb.exp(gdb_suppress_tests): Add explanation for subsequent + failures. + (gdb_stop_suppressing_tests): Note that tests have restarted. + Wed Apr 2 19:04:20 1997 Bob Manson * config/h8300.exp: New file. diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 023905ce5c9..3f1d6464867 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -42,7 +42,7 @@ if ![info exists GDB] { if ![is_remote host] { set GDB [findfile $base_dir/../../gdb/gdb "$base_dir/../../gdb/gdb" [transform gdb]] } else { - set GDB gdb + set GDB [transform gdb]; } } verbose "using GDB = $GDB" 2 @@ -708,7 +708,6 @@ proc default_gdb_start { } { verbose "Spawning $GDB -nw $GDBFLAGS" if [info exists gdb_spawn_id] { - foo; return 0; } @@ -725,7 +724,8 @@ proc default_gdb_start { } { set res [remote_spawn host "$GDB -nw $GDBFLAGS"]; } if { $res < 0 || $res == "" } { - bar + perror "Spawning $GDB failed." + return 1; } set timeout 10 gdb_expect { @@ -821,11 +821,16 @@ proc get_compiler_info {binfile} { } proc gdb_compile {source dest type options} { + global GDB_TESTCASE_OPTIONS; + if [target_info exists gdb_stub] { set options2 { "additional_flags=-Dusestubs" } lappend options "libs=[target_info gdb_stub]"; set options [concat $options2 $options] } + if [info exists GDB_TESTCASE_OPTIONS] { + lappend options "additional_flags=$GDB_TESTCASE_OPTIONS"; + } verbose "options are $options" verbose "source is $source $dest $type $options" set result [target_compile $source $dest $type $options]; @@ -867,10 +872,16 @@ proc gdb_expect { args } { # gdb_expect to fail immediately (until the next call to # gdb_stop_suppressing_tests). # -proc gdb_suppress_tests { } { +proc gdb_suppress_tests { args } { global suppress_flag; incr suppress_flag; + + if { [llength $args] > 0 } { + warning "[lindex $args 0]\n"; + } else { + warning "Because of previous failure, all subsequent tests in this group will automatically fail.\n"; + } } # @@ -880,6 +891,7 @@ proc gdb_stop_suppressing_tests { } { global suppress_flag; set suppress_flag 0; + clone_output "Tests restarted.\n"; } proc gdb_start { } { @@ -911,6 +923,7 @@ proc gdb_init { args } { # testcase that will fail in random places if we don't increase this. match_max -d 20000 + # We want to add the name of the TCL testcase to the PASS/FAIL messages. if { [llength $args] > 0 } { global pf_prefix