darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

* gdb.base/sigall.exp (test_one_sig): Attempt to recover if

Browse source 
"get signal $thissig" test fails.
This commit is contained in:
Jim Kingdon 1995-01-14 18:23:51 +00:00
parent 8248d21bd9
commit 2d593cdda9
2 changed files with 23 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gdb/testsuite/ChangeLog
View file

@ -1,5 +1,8 @@
Sat Jan 14 11:25:28 1995 Jim Kingdon <kingdon@lioth.cygnus.com>
* gdb.base/sigall.exp (test_one_sig): Attempt to recover if
"get signal $thissig" test fails.
* gdb.base/setvar.exp: Check for and reject crazy expected type hacks.
Thu Jan 12 01:14:53 1995 Jim Kingdon <kingdon@lioth.cygnus.com>

25
gdb/testsuite/gdb.base/sigall.exp
View file

@ -43,15 +43,30 @@ proc test_one_sig {nextsig} {
"SIG$thissig\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes"
gdb_test "b handle_$thissig" "Breakpoint \[0-9\]"
gdb_test "b gen_$nextsig" "Breakpoint \[0-9\]"
set need_another_continue 1
if $this_sig_supported then {
gdb_test "continue" \
"Continuing.*Program received signal SIG$thissig" \
"get signal $thissig"
send "continue\n"
expect {
-re "Continuing.*Program received signal SIG$thissig.*$prompt $" {
pass "get signal $thissig"
}
-re ".*$prompt $" {
fail "get signal $thissig"
set need_another_continue 0
}
default {
fail "get signal $thissig (eof or timeout)"
}
}
}
gdb_test "continue" "Breakpoint.*handle_$thissig" "send signal $thissig"
if $need_another_continue then {
gdb_test "continue" \
"Breakpoint.*handle_$thissig" "send signal $thissig"
}
send "continue\n"
send "signal 0\n"
expect {
-re "Breakpoint.*gen_$nextsig.*kill.*$prompt $" {
pass "advance to $nextsig"