gdb/testsuite/

* gdb.base/break-interp.exp (test_ld): Replace gdb_expect by
	gdb_test_multiple.
This commit is contained in:
Jan Kratochvil 2010-10-12 18:41:06 +00:00
parent 18a1a992e0
commit 93c17e06d2
2 changed files with 12 additions and 9 deletions

View File

@ -1,3 +1,8 @@
2010-10-12 Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.base/break-interp.exp (test_ld): Replace gdb_expect by
gdb_test_multiple.
2010-10-12 Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.base/break-interp.exp: Use ldlags for linking flags.

View File

@ -442,21 +442,19 @@ proc test_ld {file ifmain trynosym displacement} {
if $ifmain {
reach "_dl_debug_state" run $displacement
# Use two separate gdb_expect statements to avoid timeouts due to
# slow processing of wildcard capturing long output
# Use two separate gdb_test_multiple statements to avoid timeouts due
# to slow processing of wildcard capturing long output
set test "info files"
set entrynohex ""
send_gdb "$test\n"
gdb_expect {
gdb_test_multiple $test $test {
-re "\r\n\[\t \]*Entry point:\[\t \]*0x(\[0-9a-f\]+)\r\n" {
set entrynohex $expect_out(1,string)
gdb_expect {
-re "$gdb_prompt $" { pass $test }
timeout { fail "$test (timeout)" }
gdb_test_multiple "" $test {
-re "\r\n$gdb_prompt $" {
pass $test
}
}
}
-re ".*$gdb_prompt $" { fail $test }
timeout { fail "$test (timeout)" }
}
# `info sym' cannot be tested for .opd as the binary may not have