18ac113bcc
temporary breakpoint to match "Temporary breakpoint". * gdb.base/break.exp (delete_breakpoints): Likewise. * gdb.base/call-ar-st.exp (get_debug_format): Likewise. * gdb.base/commands.exp (temporary_breakpoint_commands): Likewise. * gdb.base/display.exp: Likewise. * gdb.base/foll-exec.exp (do_exec_tests): Likewise. * gdb.base/foll-fork.exp (catch_fork_child_follow): Likewise. * gdb.base/restore.exp (restore_tests): Likewise. * gdb.base/sepdebug.exp: Likewise. * gdb.base/watchpoint.exp: Likewise. * gdb.mi/mi-cli.exp: Added argument for new "disp" field. * gdb.mi/mi-pending.exp: Likewise. * gdb.mi/mi-simplerun.exp (test_running_the_program): Likewise. * gdb.mi/mi-until.exp (test_runnint_to_foo): Likewise. * gdb.mi/mi-var-cmd.exp: Likewise. * gdb.mi/mi-var-display.exp: Likewise. * gdb.mi/mi2-cli.exp: Likewise. * gdb.mi/mi2-simplerun.exp (test_running_the_program): Likewise. * gdb.mi/mi2-until.exp (test_running_to_foo): Likewise. * gdb.mi/mi2-var-display.exp: Likewise. * lib/gdb.exp (gdb_breakpoint): Pattern for temporary breakpoint. * lib/mi-support.exp (mi_runto_helper): Use "after_reason" argument for new "disp" field. (mi_expect_stop): Move after_reason argument to be really after reason. This is to support fix for PR2424.
391 lines
14 KiB
Text
391 lines
14 KiB
Text
# Copyright 1997, 1999, 2007, 2008 Free Software Foundation, Inc.
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
if { [is_remote target] || ![isnative] } then {
|
|
continue
|
|
}
|
|
|
|
set prms_id 0
|
|
set bug_id 0
|
|
|
|
global srcfile
|
|
set testfile "foll-fork"
|
|
set srcfile ${testfile}.c
|
|
set binfile ${objdir}/${subdir}/${testfile}
|
|
|
|
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
|
|
untested foll-fork.exp
|
|
return -1
|
|
}
|
|
|
|
|
|
|
|
# Until "set follow-fork-mode" and "catch fork" are implemented on
|
|
# other targets...
|
|
#
|
|
if {![istarget "hppa*-hp-hpux*"] && ![istarget "*-linux*"]} then {
|
|
continue
|
|
}
|
|
|
|
proc check_fork_catchpoints {} {
|
|
global gdb_prompt
|
|
|
|
# Verify that the system supports "catch fork".
|
|
gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" "insert first fork catchpoint"
|
|
set has_fork_catchpoints 0
|
|
gdb_test_multiple "continue" "continue to first fork catchpoint" {
|
|
-re ".*Your system does not support fork catchpoints.*$gdb_prompt $" {
|
|
unsupported "continue to first fork catchpoint"
|
|
}
|
|
-re ".*Catchpoint.*$gdb_prompt $" {
|
|
set has_fork_catchpoints 1
|
|
pass "continue to first fork catchpoint"
|
|
}
|
|
}
|
|
|
|
if {$has_fork_catchpoints == 0} {
|
|
unsupported "fork catchpoints"
|
|
return -code return
|
|
}
|
|
}
|
|
|
|
proc default_fork_parent_follow {} {
|
|
global gdb_prompt
|
|
|
|
send_gdb "show follow\n"
|
|
gdb_expect {
|
|
-re "Debugger response to a program call of fork or vfork is \"parent\"..*$gdb_prompt $"\
|
|
{pass "default show parent follow, no catchpoints"}
|
|
-re "$gdb_prompt $" {fail "default show parent follow, no catchpoints"}
|
|
timeout {fail "(timeout) default show parent follow, no catchpoints"}
|
|
}
|
|
send_gdb "next 2\n"
|
|
gdb_expect {
|
|
-re "Detaching after fork from.*$gdb_prompt $"\
|
|
{pass "default parent follow, no catchpoints"}
|
|
-re "$gdb_prompt $" {fail "default parent follow, no catchpoints"}
|
|
timeout {fail "(timeout) default parent follow, no catchpoints" }
|
|
}
|
|
# The child has been detached; allow time for any output it might
|
|
# generate to arrive, so that output doesn't get confused with
|
|
# any expected debugger output from a subsequent testpoint.
|
|
#
|
|
exec sleep 1
|
|
}
|
|
|
|
proc explicit_fork_parent_follow {} {
|
|
global gdb_prompt
|
|
|
|
send_gdb "set follow parent\n"
|
|
gdb_expect {
|
|
-re "$gdb_prompt $" {pass "set follow parent"}
|
|
timeout {fail "(timeout) set follow parent"}
|
|
}
|
|
send_gdb "show follow\n"
|
|
gdb_expect {
|
|
-re "Debugger response to a program call of fork or vfork is \"parent\"..*$gdb_prompt $"\
|
|
{pass "explicit show parent follow, no catchpoints"}
|
|
-re "$gdb_prompt $" {fail "explicit show parent follow, no catchpoints"}
|
|
timeout {fail "(timeout) explicit show parent follow, no catchpoints"}
|
|
}
|
|
send_gdb "next 2\n"
|
|
gdb_expect {
|
|
-re "Detaching after fork from.*$gdb_prompt $"\
|
|
{pass "explicit parent follow, no catchpoints"}
|
|
-re "$gdb_prompt $" {fail "explicit parent follow, no catchpoints"}
|
|
timeout {fail "(timeout) explicit parent follow, no catchpoints"}
|
|
}
|
|
# The child has been detached; allow time for any output it might
|
|
# generate to arrive, so that output doesn't get confused with
|
|
# any expected debugger output from a subsequent testpoint.
|
|
#
|
|
exec sleep 1
|
|
}
|
|
|
|
proc explicit_fork_child_follow {} {
|
|
global gdb_prompt
|
|
|
|
send_gdb "set follow child\n"
|
|
gdb_expect {
|
|
-re "$gdb_prompt $" {pass "set follow child"}
|
|
timeout {fail "(timeout) set follow child"}
|
|
}
|
|
send_gdb "show follow\n"
|
|
gdb_expect {
|
|
-re "Debugger response to a program call of fork or vfork is \"child\"..*$gdb_prompt $"\
|
|
{pass "explicit show child follow, no catchpoints"}
|
|
-re "$gdb_prompt $" {fail "explicit show child follow, no catchpoints"}
|
|
timeout {fail "(timeout) explicit show child follow, no catchpoints"}
|
|
}
|
|
send_gdb "next 2\n"
|
|
gdb_expect {
|
|
-re "Attaching after fork to.*$gdb_prompt $"\
|
|
{pass "explicit child follow, no catchpoints"}
|
|
-re "$gdb_prompt $" {fail "explicit child follow, no catchpoints"}
|
|
timeout {fail "(timeout) explicit child follow, no catchpoints"}
|
|
}
|
|
# The child has been detached; allow time for any output it might
|
|
# generate to arrive, so that output doesn't get confused with
|
|
# any gdb_expected debugger output from a subsequent testpoint.
|
|
#
|
|
exec sleep 1
|
|
}
|
|
|
|
proc catch_fork_child_follow {} {
|
|
global gdb_prompt
|
|
global srcfile
|
|
|
|
send_gdb "catch fork\n"
|
|
gdb_expect {
|
|
-re "Catchpoint .*(fork).*$gdb_prompt $"\
|
|
{pass "explicit child follow, set catch fork"}
|
|
-re "$gdb_prompt $" {fail "explicit child follow, set catch fork"}
|
|
timeout {fail "(timeout) explicit child follow, set catch fork"}
|
|
}
|
|
|
|
# Verify that the catchpoint is mentioned in an "info breakpoints",
|
|
# and further that the catchpoint mentions no process id.
|
|
#
|
|
send_gdb "info breakpoints\n"
|
|
gdb_expect {
|
|
-re ".*catch fork.*keep y.*$gdb_prompt $"\
|
|
{pass "info shows catchpoint without pid"}
|
|
-re ".*catch fork.*process .*$gdb_prompt $"\
|
|
{fail "info shows catchpoint without pid"}
|
|
-re "$gdb_prompt $" {fail "info shows catchpoint without pid"}
|
|
timeout {fail "(timeout) info shows catchpoint without pid"}
|
|
}
|
|
|
|
send_gdb "continue\n"
|
|
gdb_expect {
|
|
-re "Catchpoint.*(forked process.*),.*in .*fork.*$gdb_prompt $"\
|
|
{pass "explicit child follow, catch fork"}
|
|
-re "$gdb_prompt $" {fail "explicit child follow, catch fork"}
|
|
timeout {fail "(timeout) explicit child follow, catch fork"}
|
|
}
|
|
|
|
# Verify that the catchpoint is mentioned in an "info breakpoints",
|
|
# and further that the catchpoint managed to capture a process id.
|
|
#
|
|
send_gdb "info breakpoints\n"
|
|
gdb_expect {
|
|
-re ".*catch fork .*process \[0-9\]+.*$gdb_prompt $"\
|
|
{pass "info shows catchpoint pid"}
|
|
-re "$gdb_prompt $" {fail "info shows catchpoint pid"}
|
|
timeout {fail "(timeout) info shows catchpoint pid"}
|
|
}
|
|
|
|
send_gdb "set follow child\n"
|
|
gdb_expect {
|
|
-re "$gdb_prompt $" {pass "set follow child"}
|
|
timeout {fail "(timeout) set follow child"}
|
|
}
|
|
send_gdb "tbreak ${srcfile}:24\n"
|
|
gdb_expect {
|
|
-re "Temporary breakpoint.*, line 24.*$gdb_prompt $"\
|
|
{pass "set follow child, tbreak"}
|
|
-re "$gdb_prompt $" {fail "set follow child, tbreak"}
|
|
timeout {fail "(timeout) set follow child, tbreak"}
|
|
}
|
|
send_gdb "continue\n"
|
|
gdb_expect {
|
|
-re "Attaching after fork to.* at .*24.*$gdb_prompt $"\
|
|
{pass "set follow child, hit tbreak"}
|
|
-re "$gdb_prompt $" {fail "set follow child, hit tbreak"}
|
|
timeout {fail "(timeout) set follow child, hit tbreak"}
|
|
}
|
|
# The child has been detached; allow time for any output it might
|
|
# generate to arrive, so that output doesn't get confused with
|
|
# any expected debugger output from a subsequent testpoint.
|
|
#
|
|
exec sleep 1
|
|
send_gdb "delete breakpoints\n"
|
|
gdb_expect {
|
|
-re "Delete all breakpoints.*$" {
|
|
send_gdb "y\n"
|
|
gdb_expect {
|
|
-re "$gdb_prompt $"\
|
|
{pass "set follow child, cleanup"}
|
|
timeout {fail "(timeout) set follow child, cleanup"}
|
|
}
|
|
}
|
|
-re "$gdb_prompt $" {fail "set follow child, cleanup"}
|
|
timeout {fail "(timeout) set follow child, cleanup"}
|
|
}
|
|
}
|
|
|
|
proc tcatch_fork_parent_follow {} {
|
|
global gdb_prompt
|
|
global srcfile
|
|
|
|
send_gdb "catch fork\n"
|
|
gdb_expect {
|
|
-re "Catchpoint .*(fork).*$gdb_prompt $"\
|
|
{pass "explicit parent follow, set tcatch fork"}
|
|
-re "$gdb_prompt $" {fail "explicit parent follow, set tcatch fork"}
|
|
timeout {fail "(timeout) explicit parent follow, set tcatch fork"}
|
|
}
|
|
# ??rehrauer: I don't yet know how to get the id of the tcatch
|
|
# via this script, so that I can add a -do list to it. For now,
|
|
# do the follow stuff after the catch happens.
|
|
|
|
send_gdb "continue\n"
|
|
gdb_expect {
|
|
-re ".*in .*fork.*$gdb_prompt $"\
|
|
{pass "explicit parent follow, tcatch fork"}
|
|
-re "$gdb_prompt $" {fail "explicit parent follow, tcatch fork"}
|
|
timeout {fail "(timeout) explicit parent follow, tcatch fork"}
|
|
}
|
|
send_gdb "set follow parent\n"
|
|
gdb_expect {
|
|
-re "$gdb_prompt $" {pass "set follow parent"}
|
|
timeout {fail "(timeout) set follow parent"}
|
|
}
|
|
send_gdb "tbreak ${srcfile}:24\n"
|
|
gdb_expect {
|
|
-re "Temporary breakpoint.*, line 24.*$gdb_prompt $"\
|
|
{pass "set follow parent, tbreak"}
|
|
-re "$gdb_prompt $" {fail "set follow parent, tbreak"}
|
|
timeout {fail "(timeout) set follow child, tbreak"}
|
|
}
|
|
send_gdb "continue\n"
|
|
gdb_expect {
|
|
-re ".*Detaching after fork from.* at .*24.*$gdb_prompt $"\
|
|
{pass "set follow parent, hit tbreak"}
|
|
-re "$gdb_prompt $" {fail "set follow parent, hit tbreak"}
|
|
timeout {fail "(timeout) set follow parent, hit tbreak"}
|
|
}
|
|
# The child has been detached; allow time for any output it might
|
|
# generate to arrive, so that output doesn't get confused with
|
|
# any expected debugger output from a subsequent testpoint.
|
|
#
|
|
exec sleep 1
|
|
send_gdb "delete breakpoints\n"
|
|
gdb_expect {
|
|
-re "Delete all breakpoints.*$" {
|
|
send_gdb "y\n"
|
|
gdb_expect {
|
|
-re "$gdb_prompt $"\
|
|
{pass "set follow parent, cleanup"}
|
|
timeout {fail "(timeout) set follow parent, cleanup"}
|
|
}
|
|
}
|
|
-re "$gdb_prompt $" {fail "set follow parent, cleanup"}
|
|
timeout {fail "(timeout) set follow parent, cleanup"}
|
|
}
|
|
}
|
|
|
|
proc do_fork_tests {} {
|
|
global gdb_prompt
|
|
|
|
# Verify that help is available for "set follow-fork-mode".
|
|
#
|
|
send_gdb "help set follow-fork-mode\n"
|
|
gdb_expect {
|
|
-re "Set debugger response to a program call of fork or vfork..*
|
|
A fork or vfork creates a new process. follow-fork-mode can be:.*
|
|
.*parent - the original process is debugged after a fork.*
|
|
.*child - the new process is debugged after a fork.*
|
|
The unfollowed process will continue to run..*
|
|
By default, the debugger will follow the parent process..*$gdb_prompt $"\
|
|
{ pass "help set follow" }
|
|
-re "$gdb_prompt $" { fail "help set follow" }
|
|
timeout { fail "(timeout) help set follow" }
|
|
}
|
|
|
|
# Verify that we can set follow-fork-mode, using an abbreviation
|
|
# for both the flag and its value.
|
|
#
|
|
send_gdb "set follow ch\n"
|
|
send_gdb "show fol\n"
|
|
gdb_expect {
|
|
-re "Debugger response to a program call of fork or vfork is \"child\".*$gdb_prompt $"\
|
|
{pass "set follow, using abbreviations"}
|
|
timeout {fail "(timeout) set follow, using abbreviations"}
|
|
}
|
|
|
|
# Verify that we cannot set follow-fork-mode to nonsense.
|
|
#
|
|
send_gdb "set follow chork\n"
|
|
gdb_expect {
|
|
-re "Undefined item: \"chork\".*$gdb_prompt $"\
|
|
{pass "set follow to nonsense is prohibited"}
|
|
-re "$gdb_prompt $" {fail "set follow to nonsense is prohibited"}
|
|
timeout {fail "(timeout) set follow to nonsense is prohibited"}
|
|
}
|
|
send_gdb "set follow parent\n"
|
|
gdb_expect {
|
|
-re "$gdb_prompt $" {pass "set follow to nonsense is prohibited (reset parent)"}
|
|
timeout {fail "set follow to nonsense is prohibited (reset parent)"}
|
|
}
|
|
|
|
# Check that fork catchpoints are supported, as an indicator for whether
|
|
# fork-following is supported.
|
|
if [runto_main] then { check_fork_catchpoints }
|
|
|
|
# Test the default behaviour, which is to follow the parent of a
|
|
# fork, and detach from the child. Do this without catchpoints.
|
|
#
|
|
if [runto_main] then { default_fork_parent_follow }
|
|
|
|
# Test the ability to explicitly follow the parent of a fork, and
|
|
# detach from the child. Do this without catchpoints.
|
|
#
|
|
if [runto_main] then { explicit_fork_parent_follow }
|
|
|
|
# Test the ability to follow the child of a fork, and detach from
|
|
# the parent. Do this without catchpoints.
|
|
#
|
|
if [runto_main] then { explicit_fork_child_follow }
|
|
|
|
# Test the ability to follow both child and parent of a fork. Do
|
|
# this without catchpoints.
|
|
# ??rehrauer: NYI. Will add testpoints here when implemented.
|
|
#
|
|
|
|
# Test the ability to have the debugger ask the user at fork-time
|
|
# whether to follow the parent, child or both. Do this without
|
|
# catchpoints.
|
|
# ??rehrauer: NYI. Will add testpoints here when implemented.
|
|
#
|
|
|
|
# Test the ability to catch a fork, specify that the child be
|
|
# followed, and continue. Make the catchpoint permanent.
|
|
#
|
|
if [runto_main] then { catch_fork_child_follow }
|
|
|
|
# Test the ability to catch a fork, specify via a -do clause that
|
|
# the parent be followed, and continue. Make the catchpoint temporary.
|
|
#
|
|
if [runto_main] then { tcatch_fork_parent_follow }
|
|
}
|
|
|
|
# Start with a fresh gdb
|
|
|
|
gdb_exit
|
|
gdb_start
|
|
gdb_reinitialize_dir $srcdir/$subdir
|
|
gdb_load ${binfile}
|
|
|
|
# The "Detaching..." and "Attaching..." messages may be hidden by
|
|
# default.
|
|
gdb_test "set verbose" ""
|
|
|
|
# This is a test of gdb's ability to follow the parent, child or both
|
|
# parent and child of a Unix fork() system call.
|
|
#
|
|
do_fork_tests
|
|
|
|
return 0
|