diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/break-interp.exp | 8 |
2 files changed, 14 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 6844c45..d8b4c76 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,6 +1,12 @@ 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 * gdb.base/signals.exp: Fix check-read1 timeout using gdb_test_sequence. 2019-07-30 Tom Tromey <tromey@adacore.com> diff --git a/gdb/testsuite/gdb.base/break-interp.exp b/gdb/testsuite/gdb.base/break-interp.exp index 51e31f6..d6da653 100644 --- a/gdb/testsuite/gdb.base/break-interp.exp +++ b/gdb/testsuite/gdb.base/break-interp.exp @@ -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 + } } } } |