Skip to content

Commit

Permalink
[gdb/testsuite] Fix gdb.base/run-attach-while-running.exp
Browse files Browse the repository at this point in the history
With a testsuite setup modified to make expect wait a little bit longer for
gdb output (see PR27957), I reliably run into:
...
27        return SYSCALL_CANCEL (nanosleep, requested_time, remaining);^M
(gdb) ^M
Thread 2 "run-attach-whil" stopped.^M
0x00007f13c85a74c0 in __GI___nanosleep () at nanosleep.c:27^M
27        return SYSCALL_CANCEL (nanosleep, requested_time, remaining);^M
FAIL: gdb.base/run-attach-while-running.exp: threaded=1: \
  run-or-attach=attach: non-stop=on: test: attach to process (timeout)
...

The problem is that we're trying to match the gdb_prompt using gdb_test which
uses '$gdb_prompt $'.  The terminating '$' prevents the match.

Fix this by rewriting the gdb_test into a gdb_test_multiple and dropping the
'$'.

Tested on x86_64-linux.

gdb/testsuite/ChangeLog:

2021-06-07  Tom de Vries  <tdevries@suse.de>

	PR testsuite/27908
	* gdb.base/run-attach-while-running.exp (test): Don't match prompt
	after attach using '$gdb_prompt $'.
  • Loading branch information
vries committed Jun 7, 2021
1 parent 409cac3 commit b0e2f96
Show file tree
Hide file tree
Showing 2 changed files with 13 additions and 1 deletion.
6 changes: 6 additions & 0 deletions gdb/testsuite/ChangeLog
Original file line number Diff line number Diff line change
@@ -1,3 +1,9 @@
2021-06-07 Tom de Vries <tdevries@suse.de>

PR testsuite/27908
* gdb.base/run-attach-while-running.exp (test): Don't match prompt
after attach using '$gdb_prompt $'.

2021-06-07 Tom de Vries <tdevries@suse.de>

* gdb.base/info-types.exp.tcl: Remove "File .*" matching from regexp
Expand Down
8 changes: 7 additions & 1 deletion gdb/testsuite/gdb.base/run-attach-while-running.exp
Original file line number Diff line number Diff line change
Expand Up @@ -33,6 +33,8 @@ unset binfile
# - run-or-attach: "run" or "attach"

proc_with_prefix test { non-stop threaded run-or-attach } {
global gdb_prompt

if { ${run-or-attach} == "attach" && ![can_spawn_for_attach] } {
unsupported "attach not supported"
return
Expand Down Expand Up @@ -91,7 +93,11 @@ proc_with_prefix test { non-stop threaded run-or-attach } {
set test_spawn_id [spawn_wait_for_attach $::binfile]
set test_pid [spawn_id_get_pid $test_spawn_id]

gdb_test "attach $test_pid" "Attaching to program: .*" "attach to process"
gdb_test_multiple "attach $test_pid" "attach to process" {
-re "Attaching to program: .*$gdb_prompt " {
pass $gdb_test_name
}
}

gdb_exit
kill_wait_spawned_process $test_spawn_id
Expand Down

0 comments on commit b0e2f96

Please sign in to comment.