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

* gdb.base/list.exp (test_forward_search): Set timeout higher

Browse source 
when we'll be getting lots of output from gdb.

	* gdb.base/a1-selftest.exp: Move code that was inside expect -re
	"init_malloc" to after the expect statement.  Run it if that
	regexp is taken, but also for two others which happen if source
	cannot be found.
This commit is contained in:
Jim Kingdon 1994-12-22 00:32:15 +00:00
parent 62b32254f3
commit 9b826d6df6
2 changed files with 48 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,13 @@
Wed Dec 21 12:51:37 1994 Jim Kingdon <kingdon@deneb.cygnus.com>
* gdb.base/list.exp (test_forward_search): Set timeout higher
when we'll be getting lots of output from gdb.
* gdb.base/a1-selftest.exp: Move code that was inside expect -re
"init_malloc" to after the expect statement. Run it if that
regexp is taken, but also for two others which happen if source
cannot be found.
Tue Dec 20 12:35:21 1994 Jim Kingdon (kingdon@lioth.cygnus.com)
* gdb.base/printcmds.exp: New test, for printing register before

29
gdb/testsuite/gdb.base/a1-selftest.exp
View file

@ -221,10 +221,31 @@ proc test_with_self {} {
# now jump over a few functions
set description "next over get_run_time and everything it calls"
set got_over_get_run_time 0
send "next\n"
expect {
-re ".*init_malloc.*$prompt $" {
pass "$description"
set got_over_get_run_time 1
}
-re ".*No such file or directory.\r\n$prompt $" {
pass "$description (no source available)"
set got_over_get_run_time 1
}
-re ".*A file or directory .* does not exist..\r\n$prompt $" {
pass "$description (no source available)"
set got_over_get_run_time 1
}
-re ".*$prompt $" {
fail "$description"
}
timeout {
fail "$description (timeout)"
}
}
# -re "if \(setmp \(to_top_level\)\).*$prompt $" { pass "first next" }
if $got_over_get_run_time then {
set description "next over init_malloc and everything it calls"
send "next\n"
expect {
@ -255,8 +276,6 @@ proc test_with_self {} {
}
}
}
}
}
-re ".*No such file or directory.\r\n$prompt $" {
pass "$description (no source available)"
}
@ -266,11 +285,11 @@ proc test_with_self {} {
-re ".*$prompt $" {
fail "$description"
}
timeout {
fail "$description (timeout)"
default {
fail "$description (timeout or eof)"
}
}
}
# -re "if \(setmp \(to_top_level\)\).*$prompt $" { pass "first next" }
# This one fails on Solaris (for some versions of gdb) because you
# can't next over library functions