aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorTom de Vries <tdevries@suse.de>2022-05-08 13:53:41 +0200
committerTom de Vries <tdevries@suse.de>2022-05-08 13:53:41 +0200
commitefd1a8512f9d749861498bb3e9756727cda5e230 (patch)
treef85478c56d006d221f78a53442cc2ef3afb78c1b /gdb
parent07d977417111236a15af7813f723b608bcf67c47 (diff)
downloadgdb-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.exp18
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.