1 # Copyright 1997, 1999, 2007-2012 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 if { [is_remote target] || ![isnative] } then {
22 set testfile "foll-fork"
23 set srcfile ${testfile}.c
24 set binfile ${objdir}/${subdir}/${testfile}
26 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
27 untested foll-fork.exp
33 # Until "set follow-fork-mode" and "catch fork" are implemented on
36 if {![istarget "hppa*-hp-hpux*"] && ![istarget "*-linux*"]} then {
40 proc check_fork_catchpoints {} {
43 # Verify that the system supports "catch fork".
44 gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" "insert first fork catchpoint"
45 set has_fork_catchpoints 0
46 gdb_test_multiple "continue" "continue to first fork catchpoint" {
47 -re ".*Your system does not support this type\r\nof catchpoint.*$gdb_prompt $" {
48 unsupported "continue to first fork catchpoint"
50 -re ".*Catchpoint.*$gdb_prompt $" {
51 set has_fork_catchpoints 1
52 pass "continue to first fork catchpoint"
56 if {$has_fork_catchpoints == 0} {
57 unsupported "fork catchpoints"
62 proc default_fork_parent_follow {} {
65 gdb_test "show follow-fork" \
66 "Debugger response to a program call of fork or vfork is \"parent\".*" \
67 "default show parent follow, no catchpoints"
70 "Detaching after fork from.*" \
71 "default parent follow, no catchpoints"
73 # The child has been detached; allow time for any output it might
74 # generate to arrive, so that output doesn't get confused with
75 # any expected debugger output from a subsequent testpoint.
80 proc explicit_fork_parent_follow {} {
83 gdb_test_no_output "set follow-fork parent"
85 gdb_test "show follow-fork" \
86 "Debugger response to a program call of fork or vfork is \"parent\"." \
87 "explicit show parent follow, no catchpoints"
89 gdb_test "next 2" "Detaching after fork from.*" \
90 "explicit parent follow, no catchpoints"
92 # The child has been detached; allow time for any output it might
93 # generate to arrive, so that output doesn't get confused with
94 # any expected debugger output from a subsequent testpoint.
99 proc explicit_fork_child_follow {} {
102 gdb_test_no_output "set follow-fork child"
104 gdb_test "show follow-fork" \
105 "Debugger response to a program call of fork or vfork is \"child\"." \
106 "explicit show child follow, no catchpoints"
108 gdb_test "next 2" "Attaching after.* fork to.*" \
109 "explicit child follow, no catchpoints"
111 # The child has been detached; allow time for any output it might
112 # generate to arrive, so that output doesn't get confused with
113 # any gdb_expected debugger output from a subsequent testpoint.
118 proc catch_fork_child_follow {} {
122 set bp_after_fork [gdb_get_line_number "set breakpoint here"]
124 gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" \
125 "explicit child follow, set catch fork"
127 # Verify that the catchpoint is mentioned in an "info breakpoints",
128 # and further that the catchpoint mentions no process id.
130 set test_name "info shows catchpoint without pid"
131 gdb_test_multiple "info breakpoints" "$test_name" {
132 -re ".*catchpoint.*keep y.*fork\[\r\n\]+$gdb_prompt $" {
137 gdb_test "continue" \
138 "Catchpoint \[0-9\]* \\(forked process \[0-9\]*\\),.*" \
139 "explicit child follow, catch fork"
141 # Verify that the catchpoint is mentioned in an "info breakpoints",
142 # and further that the catchpoint managed to capture a process id.
144 set test_name "info shows catchpoint without pid"
145 gdb_test_multiple "info breakpoints" "$test_name" {
146 -re ".*catchpoint.*keep y.*fork, process.*$gdb_prompt $" {
151 gdb_test_no_output "set follow-fork child"
153 gdb_test "tbreak ${srcfile}:$bp_after_fork" \
154 "Temporary breakpoint.*, line $bp_after_fork.*" \
155 "set follow-fork child, tbreak"
157 gdb_test "continue" \
158 "Attaching after.* fork to.* at .*$bp_after_fork.*" \
159 "set follow-fork child, hit tbreak"
161 # The parent has been detached; allow time for any output it might
162 # generate to arrive, so that output doesn't get confused with
163 # any expected debugger output from a subsequent testpoint.
167 gdb_test "delete breakpoints" \
169 "set follow-fork child, cleanup" \
170 "Delete all breakpoints. \\(y or n\\) $" \
174 proc catch_fork_unpatch_child {} {
178 set bp_exit [gdb_get_line_number "at exit"]
180 gdb_test "break callee" "file .*$srcfile, line .*" \
181 "unpatch child, break at callee"
182 gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" \
183 "unpatch child, set catch fork"
185 gdb_test "continue" \
186 "Catchpoint \[0-9\]* \\(forked process \[0-9\]*\\),.*" \
187 "unpatch child, catch fork"
189 # Delete all breakpoints and catchpoints.
192 # Force $srcfile as the current GDB source can be in glibc sourcetree.
193 gdb_test "break $srcfile:$bp_exit" \
194 "Breakpoint .*file .*$srcfile, line .*" \
195 "unpatch child, breakpoint at exit call"
197 gdb_test_no_output "set follow-fork child" \
198 "unpatch child, set follow-fork child"
200 set test "unpatch child, unpatched parent breakpoints from child"
201 gdb_test_multiple "continue" $test {
202 -re "at exit.*$gdb_prompt $" {
205 -re "SIGTRAP.*$gdb_prompt $" {
208 # Explicitly kill this child, so we can continue gracefully
209 # with further testing...
212 -re ".*Kill the program being debugged.*y or n. $" {
214 gdb_expect -re "$gdb_prompt $" {}
221 proc tcatch_fork_parent_follow {} {
225 set bp_after_fork [gdb_get_line_number "set breakpoint here"]
227 gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" \
228 "explicit parent follow, set tcatch fork"
230 # ??rehrauer: I don't yet know how to get the id of the tcatch
231 # via this script, so that I can add a -do list to it. For now,
232 # do the follow stuff after the catch happens.
234 gdb_test "continue" \
235 "Catchpoint \[0-9\]* \\(forked process \[0-9\]*\\),.*" \
236 "explicit parent follow, tcatch fork"
238 gdb_test_no_output "set follow-fork parent"
240 gdb_test "tbreak ${srcfile}:$bp_after_fork" \
241 "Temporary breakpoint.*, line $bp_after_fork.*" \
242 "set follow-fork parent, tbreak"
244 gdb_test "continue" \
245 "Detaching after fork from.* at .*$bp_after_fork.*" \
246 "set follow-fork parent, hit tbreak"
248 # The child has been detached; allow time for any output it might
249 # generate to arrive, so that output doesn't get confused with
250 # any expected debugger output from a subsequent testpoint.
254 gdb_test "delete breakpoints" \
256 "set follow-fork parent, cleanup" \
257 "Delete all breakpoints. \\(y or n\\) $" \
261 proc do_fork_tests {} {
264 # Verify that help is available for "set follow-fork-mode".
266 gdb_test "help set follow-fork-mode" \
267 "Set debugger response to a program call of fork or vfork..*
268 A fork or vfork creates a new process. follow-fork-mode can be:.*
269 .*parent - the original process is debugged after a fork.*
270 .*child - the new process is debugged after a fork.*
271 The unfollowed process will continue to run..*
272 By default, the debugger will follow the parent process..*" \
273 "help set follow-fork"
275 # Verify that we can set follow-fork-mode, using an abbreviation
276 # for both the flag and its value.
278 gdb_test_no_output "set follow-fork ch"
280 gdb_test "show follow-fork" \
281 "Debugger response to a program call of fork or vfork is \"child\".*" \
282 "set follow-fork, using abbreviations"
284 # Verify that we cannot set follow-fork-mode to nonsense.
286 gdb_test "set follow-fork chork" "Undefined item: \"chork\".*" \
287 "set follow-fork to nonsense is prohibited"
289 gdb_test_no_output "set follow-fork parent" "reset parent"
291 # Check that fork catchpoints are supported, as an indicator for whether
292 # fork-following is supported.
293 if [runto_main] then { check_fork_catchpoints }
295 # Test the default behaviour, which is to follow the parent of a
296 # fork, and detach from the child. Do this without catchpoints.
298 if [runto_main] then { default_fork_parent_follow }
300 # Test the ability to explicitly follow the parent of a fork, and
301 # detach from the child. Do this without catchpoints.
303 if [runto_main] then { explicit_fork_parent_follow }
305 # Test the ability to follow the child of a fork, and detach from
306 # the parent. Do this without catchpoints.
308 if [runto_main] then { explicit_fork_child_follow }
310 # Test the ability to follow both child and parent of a fork. Do
311 # this without catchpoints.
312 # ??rehrauer: NYI. Will add testpoints here when implemented.
315 # Test the ability to have the debugger ask the user at fork-time
316 # whether to follow the parent, child or both. Do this without
318 # ??rehrauer: NYI. Will add testpoints here when implemented.
321 # Test the ability to catch a fork, specify that the child be
322 # followed, and continue. Make the catchpoint permanent.
324 if [runto_main] then { catch_fork_child_follow }
326 # Test that parent breakpoints are successfully detached from the
327 # child at fork time, even if the user removes them from the
328 # breakpoints list after stopping at a fork catchpoint.
329 if [runto_main] then { catch_fork_unpatch_child }
331 # Test the ability to catch a fork, specify via a -do clause that
332 # the parent be followed, and continue. Make the catchpoint temporary.
334 if [runto_main] then { tcatch_fork_parent_follow }
337 # Start with a fresh gdb
341 gdb_reinitialize_dir $srcdir/$subdir
344 # The "Detaching..." and "Attaching..." messages may be hidden by
346 gdb_test_no_output "set verbose"
348 # This is a test of gdb's ability to follow the parent, child or both
349 # parent and child of a Unix fork() system call.