1 # Copyright 1997, 1999, 2007, 2008, 2009, 2010, 2011
2 # Free Software Foundation, Inc.
4 # This program is free software; you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation; either version 3 of the License, or
7 # (at your option) any later version.
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with this program. If not, see <http://www.gnu.org/licenses/>.
17 if { [is_remote target] || ![isnative] } then {
23 set testfile "foll-fork"
24 set srcfile ${testfile}.c
25 set binfile ${objdir}/${subdir}/${testfile}
27 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
28 untested foll-fork.exp
34 # Until "set follow-fork-mode" and "catch fork" are implemented on
37 if {![istarget "hppa*-hp-hpux*"] && ![istarget "*-linux*"]} then {
41 proc check_fork_catchpoints {} {
44 # Verify that the system supports "catch fork".
45 gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" "insert first fork catchpoint"
46 set has_fork_catchpoints 0
47 gdb_test_multiple "continue" "continue to first fork catchpoint" {
48 -re ".*Your system does not support this type\r\nof catchpoint.*$gdb_prompt $" {
49 unsupported "continue to first fork catchpoint"
51 -re ".*Catchpoint.*$gdb_prompt $" {
52 set has_fork_catchpoints 1
53 pass "continue to first fork catchpoint"
57 if {$has_fork_catchpoints == 0} {
58 unsupported "fork catchpoints"
63 proc default_fork_parent_follow {} {
66 gdb_test "show follow-fork" \
67 "Debugger response to a program call of fork or vfork is \"parent\".*" \
68 "default show parent follow, no catchpoints"
71 "Detaching after fork from.*" \
72 "default parent follow, no catchpoints"
74 # The child has been detached; allow time for any output it might
75 # generate to arrive, so that output doesn't get confused with
76 # any expected debugger output from a subsequent testpoint.
81 proc explicit_fork_parent_follow {} {
84 gdb_test_no_output "set follow-fork parent"
86 gdb_test "show follow-fork" \
87 "Debugger response to a program call of fork or vfork is \"parent\"." \
88 "explicit show parent follow, no catchpoints"
90 gdb_test "next 2" "Detaching after fork from.*" \
91 "explicit parent follow, no catchpoints"
93 # The child has been detached; allow time for any output it might
94 # generate to arrive, so that output doesn't get confused with
95 # any expected debugger output from a subsequent testpoint.
100 proc explicit_fork_child_follow {} {
103 gdb_test_no_output "set follow-fork child"
105 gdb_test "show follow-fork" \
106 "Debugger response to a program call of fork or vfork is \"child\"." \
107 "explicit show child follow, no catchpoints"
109 gdb_test "next 2" "Attaching after.* fork to.*" \
110 "explicit child follow, no catchpoints"
112 # The child has been detached; allow time for any output it might
113 # generate to arrive, so that output doesn't get confused with
114 # any gdb_expected debugger output from a subsequent testpoint.
119 proc catch_fork_child_follow {} {
123 set bp_after_fork [gdb_get_line_number "set breakpoint here"]
125 gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" \
126 "explicit child follow, set catch fork"
128 # Verify that the catchpoint is mentioned in an "info breakpoints",
129 # and further that the catchpoint mentions no process id.
131 set test_name "info shows catchpoint without pid"
132 gdb_test_multiple "info breakpoints" "$test_name" {
133 -re ".*catchpoint.*keep y.*fork\[\r\n\]+$gdb_prompt $" {
138 gdb_test "continue" \
139 "Catchpoint \[0-9\]* \\(forked process \[0-9\]*\\),.*" \
140 "explicit child follow, catch fork"
142 # Verify that the catchpoint is mentioned in an "info breakpoints",
143 # and further that the catchpoint managed to capture a process id.
145 set test_name "info shows catchpoint without pid"
146 gdb_test_multiple "info breakpoints" "$test_name" {
147 -re ".*catchpoint.*keep y.*fork, process.*$gdb_prompt $" {
152 gdb_test_no_output "set follow-fork child"
154 gdb_test "tbreak ${srcfile}:$bp_after_fork" \
155 "Temporary breakpoint.*, line $bp_after_fork.*" \
156 "set follow-fork child, tbreak"
158 gdb_test "continue" \
159 "Attaching after.* fork to.* at .*$bp_after_fork.*" \
160 "set follow-fork child, hit tbreak"
162 # The parent has been detached; allow time for any output it might
163 # generate to arrive, so that output doesn't get confused with
164 # any expected debugger output from a subsequent testpoint.
168 gdb_test "delete breakpoints" \
170 "set follow-fork child, cleanup" \
171 "Delete all breakpoints.*$" \
175 proc catch_fork_unpatch_child {} {
179 set bp_exit [gdb_get_line_number "at exit"]
181 gdb_test "break callee" "file .*$srcfile, line .*" \
182 "unpatch child, break at callee"
183 gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" \
184 "unpatch child, set catch fork"
186 gdb_test "continue" \
187 "Catchpoint \[0-9\]* \\(forked process \[0-9\]*\\),.*" \
188 "unpatch child, catch fork"
190 # Delete all breakpoints and catchpoints.
193 # Force $srcfile as the current GDB source can be in glibc sourcetree.
194 gdb_test "break $srcfile:$bp_exit" \
195 "Breakpoint .*file .*$srcfile, line .*" \
196 "unpatch child, breakpoint at exit call"
198 gdb_test_no_output "set follow-fork child" \
199 "unpatch child, set follow-fork child"
201 set test "unpatch child, unpatched parent breakpoints from child"
202 gdb_test_multiple "continue" $test {
203 -re "at exit.*$gdb_prompt $" {
206 -re "SIGTRAP.*$gdb_prompt $" {
209 # Explicitly kill this child, so we can continue gracefully
210 # with further testing...
213 -re ".*Kill the program being debugged.*y or n. $" {
215 gdb_expect -re "$gdb_prompt $" {}
222 proc tcatch_fork_parent_follow {} {
226 set bp_after_fork [gdb_get_line_number "set breakpoint here"]
228 gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" \
229 "explicit parent follow, set tcatch fork"
231 # ??rehrauer: I don't yet know how to get the id of the tcatch
232 # via this script, so that I can add a -do list to it. For now,
233 # do the follow stuff after the catch happens.
235 gdb_test "continue" \
236 "Catchpoint \[0-9\]* \\(forked process \[0-9\]*\\),.*" \
237 "explicit parent follow, tcatch fork"
239 gdb_test_no_output "set follow-fork parent"
241 gdb_test "tbreak ${srcfile}:$bp_after_fork" \
242 "Temporary breakpoint.*, line $bp_after_fork.*" \
243 "set follow-fork parent, tbreak"
245 gdb_test "continue" \
246 "Detaching after fork from.* at .*$bp_after_fork.*" \
247 "set follow-fork parent, hit tbreak"
249 # The child has been detached; allow time for any output it might
250 # generate to arrive, so that output doesn't get confused with
251 # any expected debugger output from a subsequent testpoint.
255 gdb_test "delete breakpoints" \
257 "set follow-fork parent, cleanup" \
258 "Delete all breakpoints.*$" \
262 proc do_fork_tests {} {
265 # Verify that help is available for "set follow-fork-mode".
267 gdb_test "help set follow-fork-mode" \
268 "Set debugger response to a program call of fork or vfork..*
269 A fork or vfork creates a new process. follow-fork-mode can be:.*
270 .*parent - the original process is debugged after a fork.*
271 .*child - the new process is debugged after a fork.*
272 The unfollowed process will continue to run..*
273 By default, the debugger will follow the parent process..*" \
274 "help set follow-fork"
276 # Verify that we can set follow-fork-mode, using an abbreviation
277 # for both the flag and its value.
279 gdb_test_no_output "set follow-fork ch"
281 gdb_test "show follow-fork" \
282 "Debugger response to a program call of fork or vfork is \"child\".*" \
283 "set follow-fork, using abbreviations"
285 # Verify that we cannot set follow-fork-mode to nonsense.
287 gdb_test "set follow-fork chork" "Undefined item: \"chork\".*" \
288 "set follow-fork to nonsense is prohibited"
290 gdb_test_no_output "set follow-fork parent" "reset parent"
292 # Check that fork catchpoints are supported, as an indicator for whether
293 # fork-following is supported.
294 if [runto_main] then { check_fork_catchpoints }
296 # Test the default behaviour, which is to follow the parent of a
297 # fork, and detach from the child. Do this without catchpoints.
299 if [runto_main] then { default_fork_parent_follow }
301 # Test the ability to explicitly follow the parent of a fork, and
302 # detach from the child. Do this without catchpoints.
304 if [runto_main] then { explicit_fork_parent_follow }
306 # Test the ability to follow the child of a fork, and detach from
307 # the parent. Do this without catchpoints.
309 if [runto_main] then { explicit_fork_child_follow }
311 # Test the ability to follow both child and parent of a fork. Do
312 # this without catchpoints.
313 # ??rehrauer: NYI. Will add testpoints here when implemented.
316 # Test the ability to have the debugger ask the user at fork-time
317 # whether to follow the parent, child or both. Do this without
319 # ??rehrauer: NYI. Will add testpoints here when implemented.
322 # Test the ability to catch a fork, specify that the child be
323 # followed, and continue. Make the catchpoint permanent.
325 if [runto_main] then { catch_fork_child_follow }
327 # Test that parent breakpoints are successfully detached from the
328 # child at fork time, even if the user removes them from the
329 # breakpoints list after stopping at a fork catchpoint.
330 if [runto_main] then { catch_fork_unpatch_child }
332 # Test the ability to catch a fork, specify via a -do clause that
333 # the parent be followed, and continue. Make the catchpoint temporary.
335 if [runto_main] then { tcatch_fork_parent_follow }
338 # Start with a fresh gdb
342 gdb_reinitialize_dir $srcdir/$subdir
345 # The "Detaching..." and "Attaching..." messages may be hidden by
347 gdb_test_no_output "set verbose"
349 # This is a test of gdb's ability to follow the parent, child or both
350 # parent and child of a Unix fork() system call.