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

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

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 1524b829c8746e4e30941401dd5b3477b66a6765..5565cedd396cc166a6a5a392c7be8c5999a4ad10 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -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

diff --git a/gdb/testsuite/gdb.base/attach.exp b/gdb/testsuite/gdb.base/attach.exp
index 96466559b43e09f2b7ba3e679aa86f4c3d9533aa..b0ded430bb278b2904f15e24fa5396eb6aa44cf8 100644 (file)
--- a/gdb/testsuite/gdb.base/attach.exp
+++ b/gdb/testsuite/gdb.base/attach.exp
@@ -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
-           }
+    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"
+    send_gdb "y\n"
 
-       set test "run to main"
-       gdb_test_multiple "" $test {
-           -re "Temporary breakpoint .* main .*$gdb_prompt $" {
-               pass $test
-           }
+    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
     }
+
+    # Get rid of the process
+    kill_wait_spawned_process $test_spawn_id
 }