1 # Copyright
2017-2023 Free Software Foundation
, Inc.
3 # This
program is free software
; you can redistribute it and
/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation
; either version
3 of the License
, or
6 #
(at your option
) any later version.
8 # This
program is distributed in the hope that it will be useful
,
9 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License
for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this
program.
If not
, see
<http
://www.gnu.org
/licenses
/>.
*/
16 # Check that we can attach to processes that are not process group
17 # leaders. We test that by attaching to a fork child that doesn
't
18 # call any of setpgrp/setpgid/setsid to move itself to a new process
21 require can_spawn_for_attach
25 if { [build_executable ${testfile}.exp ${testfile} $srcfile {debug}] == -1 } {
33 set test_spawn_id [spawn_wait_for_attach $binfile]
34 set parent_pid [spawn_id_get_pid $test_spawn_id]
36 # Attach to the parent, run it to a known point, extract the
37 # child's PID
, and detach.
38 with_test_prefix
"parent" {
39 clean_restart $
{binfile
}
41 gdb_test
"attach $parent_pid" \
42 "Attaching to program.*, process $parent_pid.*" \
45 gdb_breakpoint
"marker"
46 gdb_continue_to_breakpoint
"marker"
48 set child_pid
[get_integer_valueof
"child_pid" -1]
49 if {$child_pid
== -1} {
54 "Detaching from program: .*process $parent_pid\r\n\\\[Inferior $decimal \\(.*\\) detached\\\]"
57 # Start over
, and attach to the child this time.
58 with_test_prefix
"child" {
59 clean_restart $binfile
61 gdb_test
"attach $child_pid" \
62 "Attaching to program.*, process $child_pid.*" \
65 gdb_breakpoint
"marker"
66 gdb_continue_to_breakpoint
"marker"
69 "Detaching from program: .*process $child_pid\r\n\\\[Inferior $decimal \\(.*\\) detached\\\]"
72 kill_wait_spawned_process $test_spawn_id