diff options
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp | 16 |
2 files changed, 16 insertions, 5 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index a9c2852..520e453 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2020-03-14 Tom de Vries <tdevries@suse.de> + * gdb.threads/attach-many-short-lived-threads.exp: Read "info threads" + result in line-by-line fashion. + +2020-03-14 Tom de Vries <tdevries@suse.de> + * lib/gdb.exp (supports_statement_frontiers): New proc. * gdb.cp/step-and-next-inline.exp: Use supports_statement_frontiers. diff --git a/gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp b/gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp index 9a08e57..1301434 100644 --- a/gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp +++ b/gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp @@ -108,12 +108,18 @@ proc test {} { sleep 1 set test "no new threads" - gdb_test_multiple "info threads" $test { - -re "New .*$gdb_prompt $" { - fail $test + set status 1 + gdb_test_multiple "info threads" $test -lbl { + -re "\r\n\[^\r\n\]*New " { + set status 0 + exp_continue } - -re "$gdb_prompt $" { - pass $test + -re -wrap "" { + if { $status == 1 } { + pass $gdb_test_name + } else { + fail $gdb_test_name + } } } |