Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

gdb/testsuite: use proc_with_prefix in gdb.base/attach.exp

Browse Source 
Use proc_with_prefix for test_command_line_attach_run, as we do for
other procs.

gdb/testsuite/ChangeLog:

	* gdb.base/attach.exp (test_command_line_attach_run): Use
	proc_with_prefix.

Change-Id: I47b61bb91b6ac0570ad7556a824f874ea50c7cda
This commit is contained in:
Simon Marchi
2021-06-07 11:18:35 -04:00
parent cfa8e270c9
commit f1854e35d8
2 changed files with 32 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@@ -1,3 +1,8 @@
2021-06-07 Simon Marchi <simon.marchi@polymtl.ca>
* gdb.base/attach.exp (test_command_line_attach_run): Use
proc_with_prefix.
2021-06-07 Tom de Vries <tdevries@suse.de>
PR testsuite/27908

56
gdb/testsuite/gdb.base/attach.exp
View File

@@ -468,7 +468,7 @@ proc_with_prefix do_command_attach_tests {} {
# Test ' gdb --pid PID -ex "run" '. GDB used to have a bug where
# "run" would run before the attach finished - PR17347.
proc test_command_line_attach_run {} {
proc_with_prefix test_command_line_attach_run {} {
global gdb_prompt
global binfile
@@ -482,38 +482,36 @@ proc test_command_line_attach_run {} {
return 0
}
with_test_prefix "cmdline attach run" {
set test_spawn_id [spawn_wait_for_attach $binfile]
set testpid [spawn_id_get_pid $test_spawn_id]
set test_spawn_id [spawn_wait_for_attach $binfile]
set testpid [spawn_id_get_pid $test_spawn_id]
set test "run to prompt"
gdb_exit
set test "run to prompt"
gdb_exit
set res [gdb_spawn_with_cmdline_opts \
"-quiet -iex \"set height 0\" -iex \"set width 0\" --pid=$testpid -ex \"start\""]
if { $res != 0} {
fail $test
kill_wait_spawned_process $test_spawn_id
return $res
}
gdb_test_multiple "" $test {
-re {Attaching to.*Start it from the beginning\? \(y or n\) } {
pass $test
}
}
send_gdb "y\n"
set test "run to main"
gdb_test_multiple "" $test {
-re "Temporary breakpoint .* main .*$gdb_prompt $" {
pass $test
}
}
# Get rid of the process
set res [gdb_spawn_with_cmdline_opts \
"-quiet -iex \"set height 0\" -iex \"set width 0\" --pid=$testpid -ex \"start\""]
if { $res != 0} {
fail $test
kill_wait_spawned_process $test_spawn_id
return $res
}
gdb_test_multiple "" $test {
-re {Attaching to.*Start it from the beginning\? \(y or n\) } {
pass $test
}
}
send_gdb "y\n"
set test "run to main"
gdb_test_multiple "" $test {
-re "Temporary breakpoint .* main .*$gdb_prompt $" {
pass $test
}
}
# Get rid of the process
kill_wait_spawned_process $test_spawn_id
}