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

[external/binutils.git] / gdb / testsuite / gdb.base / break-interp.exp

diff --git a/gdb/testsuite/gdb.base/break-interp.exp b/gdb/testsuite/gdb.base/break-interp.exp
index 51e31f6..d6da653 100644 (file)
--- 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
+                       }
                    }
                }
            }