darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-12-01 16:35:04 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* lib/gdb.exp(gdb_suppress_tests): Add explanation for subsequent

Browse Source 
failures.
	(gdb_stop_suppressing_tests): Note that tests have restarted.
This commit is contained in:
Bob Manson 1997-04-03 17:47:33 +00:00
parent d0c45fcb75
commit ddb594ac2a
2 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
Thu Apr 3 09:38:53 1997 Bob Manson <manson@charmed.cygnus.com>
* 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 <manson@charmed.cygnus.com>
* config/h8300.exp: New file.

21
gdb/testsuite/lib/gdb.exp
View File

@ -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