[gdb/testsuite] Fix gdb.base/break-interp.exp timeout with check-read1

With gdb.base/break-interp.exp and check-read1, we run get:
...
FAIL: gdb.base/break-interp.exp: LDprelinkNOdebugNO: \
  BINprelinkNOdebugNOpieNO: symbol-less: info files (timeout)
FAIL: gdb.base/break-interp.exp: LDprelinkNOdebugNO: \
  BINprelinkNOdebugNOpieYES: symbol-less: info files (timeout)
FAIL: gdb.base/break-interp.exp: LDprelinkNOdebugIN: \
  BINprelinkNOdebugNOpieNO: symbol-less: info files (timeout)
FAIL: gdb.base/break-interp.exp: LDprelinkNOdebugIN: \
  BINprelinkNOdebugNOpieYES: symbol-less: info files (timeout)
...

Fix this by calling exp_continue after each "info files" line.

Tested on x86_64-linux.

gdb/testsuite/ChangeLog:

2019-08-01  Tom de Vries  <tdevries@suse.de>

	PR testsuite/24863
	* gdb.base/break-interp.exp: Use exp_continue after each "info files"
	line.
This commit is contained in:
Tom de Vries
2019-08-01 10:48:11 +02:00
parent ed5913402b
commit 117eb59422
2 changed files with 14 additions and 0 deletions

View File

@ -1,3 +1,9 @@
2019-08-01 Tom de Vries <tdevries@suse.de>
PR testsuite/24863
* gdb.base/break-interp.exp: Use exp_continue after each "info files"
line.
2019-08-01 Tom de Vries <tdevries@suse.de>
PR testsuite/24863

View File

@ -451,6 +451,10 @@ proc test_ld {file ifmain trynosym displacement} {
# to slow processing of wildcard capturing long output
set test "info files"
set entrynohex ""
set info_line [join [list \
"\r\n" "\[\t\]" "0x\[0-9af\]+" " - " \
"0x\[0-9af\]+" " @ " "0x\[0-9af\]+" \
" is " "\[^\r\n\]+"] ""]
gdb_test_multiple $test $test {
-re "\r\n\[\t \]*Entry point:\[\t \]*0x(\[0-9a-f\]+)\r\n" {
set entrynohex $expect_out(1,string)
@ -458,6 +462,10 @@ proc test_ld {file ifmain trynosym displacement} {
-re "\r\n$gdb_prompt $" {
pass $test
}
-re $info_line {
# Avoid timeout with check-read1
exp_continue
}
}
}
}