* gdb.base/interrupt.exp: Add i*86-*-linux* setup_xfail for

"p func1 ()" and note that rests of tests are skipped.
	* gdb.base/corefile.exp: Add i*86-*-linux* and m68*-*-hpux*
 	setup_xfails for "print func2::coremaker_local".
	Add i*86-*-linux* setup_xfail for "backtrace in corefile.exp".
	* gdb.base/mips_pro.exp: Restart gdb in this test so it isn't
	affected by the previous run test.
	* gdb.chill/misc.exp: Add m68*-*-hpux* setup_xfails for
	"print array () ubyte (foo)" and "print/x array () byte (\$i)"
	* gdb.chill/pr-8742.exp: Add m68*-*-hpux* setup_xfails for
	"pass int powerset tuple" and "pass modeless int powerset tuple".
	* gdb.chill/tests2.exp: Add m68*-*-hpux* setup xfails for
	"real write 4" and "real write 8".
	* gdb.shill/tuples.exp: Add i*86-*-linux* and m68*-*-hpux*
 	setup_xfails for "print vs1 after tuple assign 2",
	"print \$i after tuple assign 2", and
	"print vs2 after tuple assign 2".
	* lib/gdb.exp (gdb_test): When a gdb aborts, print a more
	meaningful error message and return -1 so the caller can
	suppress further tests and avoid a cascade of errors.
This commit is contained in:
Fred Fish
1996-10-01 03:29:45 +00:00
parent b51843d888
commit f646eef47b
7 changed files with 116 additions and 6 deletions

View File

@ -275,8 +275,7 @@ proc runto_main {} {
global usestubs
if $usestubs==0 {
runto main
return 1
return [runto main]
}
send "delete\n"
@ -320,6 +319,7 @@ proc gdb_test { args } {
global prompt
global GDB
global spawn_id
global expect_out
upvar timeout timeout
if [llength $args]==3 then {
@ -364,6 +364,24 @@ proc gdb_test { args } {
perror "\"$command\" is not a unique command name."
set result 1
}
-re "(.*)(Program exited with code \[0-9\]+)(.*$prompt $)" {
if ![string match "" $message] then {
set errmsg "$message: $expect_out(2,string)"
} else {
set errmsg "$command: $expect_out(2,string)"
}
perror "$errmsg"
return -1
}
-re "The program is not being run.*$prompt $" {
if ![string match "" $message] then {
set errmsg "$message: the program is no longer running"
} else {
set errmsg "$command: the program is no longer running"
}
perror "$errmsg"
return -1
}
-re ".*$prompt $" {
if ![string match "" $message] then {
fail "$message"
@ -382,7 +400,7 @@ proc gdb_test { args } {
perror "Process no longer exists"
return -1
}
buffer_full {
full_buffer {
perror "internal buffer is full."
}
timeout {