diff options
author | Tom de Vries <tdevries@suse.de> | 2022-05-08 13:53:41 +0200 |
---|---|---|
committer | Tom de Vries <tdevries@suse.de> | 2022-05-08 13:53:41 +0200 |
commit | efd1a8512f9d749861498bb3e9756727cda5e230 (patch) | |
tree | f85478c56d006d221f78a53442cc2ef3afb78c1b /gdb | |
parent | 07d977417111236a15af7813f723b608bcf67c47 (diff) | |
download | gdb-efd1a8512f9d749861498bb3e9756727cda5e230.zip gdb-efd1a8512f9d749861498bb3e9756727cda5e230.tar.gz gdb-efd1a8512f9d749861498bb3e9756727cda5e230.tar.bz2 |
[gdb/testsuite] Fix gdb.threads/fork-plus-threads.exp with check-readmore
When running test-case gdb.threads/fork-plus-threads.exp with check-readmore,
I run into:
...
[Inferior 11 (process 7029) exited normally]^M
[Inferior 1 (process 6956) exited normally]^M
FAIL: gdb.threads/fork-plus-threads.exp: detach-on-fork=off: \
inferior 1 exited (timeout)
...
The problem is that the regexp consuming the "Inferior exited normally"
messages:
- consumes more than one of those messages at a time, but
- counts only one of those messages.
Fix this by adopting a line-by-line approach, which deals with those messages
one at a time.
Tested on x86_64-linux with native, check-read1 and check-readmore.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/testsuite/gdb.threads/fork-plus-threads.exp | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/gdb/testsuite/gdb.threads/fork-plus-threads.exp b/gdb/testsuite/gdb.threads/fork-plus-threads.exp index 26fbef7..c05ac4a 100644 --- a/gdb/testsuite/gdb.threads/fork-plus-threads.exp +++ b/gdb/testsuite/gdb.threads/fork-plus-threads.exp @@ -88,23 +88,15 @@ proc do_test { detach-on-fork } { set test "inferior 1 exited" gdb_test_multiple "" $test { - -re "Cannot remove breakpoints" { + -re "^Cannot remove breakpoints" { set saw_cannot_remove_breakpoints 1 exp_continue } - -re "Thread \[^\r\n\]+ stopped\\." { + -re "^\\\[Thread \[^\r\n\]+ stopped\\." { set saw_thread_stopped 1 exp_continue } - -re "(Thread|LWP) \[^\r\n\]+ exited" { - # Avoid timeout with check-read1 - exp_continue - } - -re "New (Thread|LWP) \[^\r\n\]+" { - # Avoid timeout with check-read1 - exp_continue - } - -re "Inferior ($::decimal) \(\[^\r\n\]+\) exited normally" { + -re "^\\\[Inferior ($::decimal) \(\[^\r\n\]+\) exited normally\\\]" { set infnum $expect_out(1,string) incr num_inferior_exits_seen incr inferior_exits_seen($infnum) 1 @@ -115,6 +107,10 @@ proc do_test { detach-on-fork } { exp_continue } } + -re "^\[^\r\n]*\r\n" { + # Skip line. + exp_continue + } } # Verify that we got all the inferior exits we expected. |