gdb/testsuite/gdb.base/foll-fork.exp

   1 #   Copyright 1997, 1999, 2007, 2008, 2009 Free Software Foundation, Inc.
   2
   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.
   7 #
   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.
  12 #
  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/>.
  15
  16 if { [is_remote target] || ![isnative] } then {
  17     continue
  18 }
  19
  20 set prms_id 0
  21 set bug_id 0
  22
  23 global srcfile
  24 set testfile "foll-fork"
  25 set srcfile ${testfile}.c
  26 set binfile ${objdir}/${subdir}/${testfile}
  27
  28 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
  29      untested foll-fork.exp
  30      return -1
  31 }
  32
  33
  34
  35 # Until "set follow-fork-mode" and "catch fork" are implemented on
  36 # other targets...
  37 #
  38 if {![istarget "hppa*-hp-hpux*"] && ![istarget "*-linux*"]} then {
  39     continue
  40 }
  41
  42 proc check_fork_catchpoints {} {
  43   global gdb_prompt
  44
  45   # Verify that the system supports "catch fork".
  46   gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" "insert first fork catchpoint"
  47   set has_fork_catchpoints 0
  48   gdb_test_multiple "continue" "continue to first fork catchpoint" {
  49     -re ".*Your system does not support fork catchpoints.*$gdb_prompt $" {
  50       unsupported "continue to first fork catchpoint"
  51     }
  52     -re ".*Catchpoint.*$gdb_prompt $" {
  53       set has_fork_catchpoints 1
  54       pass "continue to first fork catchpoint"
  55     }
  56   }
  57
  58   if {$has_fork_catchpoints == 0} {
  59     unsupported "fork catchpoints"
  60     return -code return
  61   }
  62 }
  63
  64 proc default_fork_parent_follow {} {
  65    global gdb_prompt
  66
  67    send_gdb "show follow-fork\n"
  68    gdb_expect {
  69       -re "Debugger response to a program call of fork or vfork is \"parent\"..*$gdb_prompt $"\
  70                       {pass "default show parent follow, no catchpoints"}
  71       -re "$gdb_prompt $" {fail "default show parent follow, no catchpoints"}
  72       timeout         {fail "(timeout) default show parent follow, no catchpoints"}
  73    }
  74    send_gdb "next 2\n"
  75    gdb_expect {
  76       -re "Detaching after fork from.*$gdb_prompt $"\
  77                       {pass "default parent follow, no catchpoints"}
  78       -re "$gdb_prompt $" {fail "default parent follow, no catchpoints"}
  79       timeout         {fail "(timeout) default parent follow, no catchpoints" }
  80    }
  81    # The child has been detached; allow time for any output it might
  82    # generate to arrive, so that output doesn't get confused with
  83    # any expected debugger output from a subsequent testpoint.
  84    #
  85    exec sleep 1
  86 }
  87
  88 proc explicit_fork_parent_follow {} {
  89    global gdb_prompt
  90
  91    send_gdb "set follow-fork parent\n"
  92    gdb_expect {
  93       -re "$gdb_prompt $" {pass "set follow-fork parent"}
  94       timeout         {fail "(timeout) set follow-fork parent"}
  95    }
  96    send_gdb "show follow-fork\n"
  97    gdb_expect {
  98       -re "Debugger response to a program call of fork or vfork is \"parent\"..*$gdb_prompt $"\
  99                       {pass "explicit show parent follow, no catchpoints"}
 100       -re "$gdb_prompt $" {fail "explicit show parent follow, no catchpoints"}
 101       timeout         {fail "(timeout) explicit show parent follow, no catchpoints"}
 102    }
 103    send_gdb "next 2\n"
 104    gdb_expect {
 105       -re "Detaching after fork from.*$gdb_prompt $"\
 106                       {pass "explicit parent follow, no catchpoints"}
 107       -re "$gdb_prompt $" {fail "explicit parent follow, no catchpoints"}
 108       timeout         {fail "(timeout) explicit parent follow, no catchpoints"}
 109    }
 110    # The child has been detached; allow time for any output it might
 111    # generate to arrive, so that output doesn't get confused with
 112    # any expected debugger output from a subsequent testpoint.
 113    #
 114    exec sleep 1
 115 }
 116
 117 proc explicit_fork_child_follow {} {
 118    global gdb_prompt
 119
 120    send_gdb "set follow-fork child\n"
 121    gdb_expect {
 122       -re "$gdb_prompt $" {pass "set follow-fork child"}
 123       timeout         {fail "(timeout) set follow-fork child"}
 124    }
 125    send_gdb "show follow-fork\n"
 126    gdb_expect {
 127       -re "Debugger response to a program call of fork or vfork is \"child\"..*$gdb_prompt $"\
 128                       {pass "explicit show child follow, no catchpoints"}
 129       -re "$gdb_prompt $" {fail "explicit show child follow, no catchpoints"}
 130       timeout         {fail "(timeout) explicit show child follow, no catchpoints"}
 131    }
 132    send_gdb "next 2\n"
 133    gdb_expect {
 134       -re "Attaching after.* fork to.*$gdb_prompt $"\
 135                       {pass "explicit child follow, no catchpoints"}
 136       -re "$gdb_prompt $" {fail "explicit child follow, no catchpoints"}
 137       timeout         {fail "(timeout) explicit child follow, no catchpoints"}
 138    }
 139    # The child has been detached; allow time for any output it might
 140    # generate to arrive, so that output doesn't get confused with
 141    # any gdb_expected debugger output from a subsequent testpoint.
 142    #
 143    exec sleep 1
 144 }
 145
 146 proc catch_fork_child_follow {} {
 147    global gdb_prompt
 148    global srcfile
 149
 150    set bp_after_fork [gdb_get_line_number "set breakpoint here"]
 151
 152    send_gdb "catch fork\n"
 153    gdb_expect {
 154       -re "Catchpoint .*(fork).*$gdb_prompt $"\
 155                       {pass "explicit child follow, set catch fork"}
 156       -re "$gdb_prompt $" {fail "explicit child follow, set catch fork"}
 157       timeout         {fail "(timeout) explicit child follow, set catch fork"}
 158    }
 159
 160    # Verify that the catchpoint is mentioned in an "info breakpoints",
 161    # and further that the catchpoint mentions no process id.
 162    #
 163    set test_name "info shows catchpoint without pid"
 164    gdb_test_multiple "info breakpoints" "$test_name" {
 165      -re ".*catchpoint.*keep y.*fork\[\r\n\]+$gdb_prompt $" {
 166        pass "$test_name"
 167      }
 168    }
 169
 170    send_gdb "continue\n"
 171    gdb_expect {
 172       -re "Catchpoint.*(forked process.*),.*in .*(fork|__kernel_v?syscall).*$gdb_prompt $"\
 173                       {pass "explicit child follow, catch fork"}
 174       -re "$gdb_prompt $" {fail "explicit child follow, catch fork"}
 175       timeout         {fail "(timeout) explicit child follow, catch fork"}
 176    }
 177
 178    # Verify that the catchpoint is mentioned in an "info breakpoints",
 179    # and further that the catchpoint managed to capture a process id.
 180    #
 181    set test_name "info shows catchpoint without pid"
 182    gdb_test_multiple "info breakpoints" "$test_name" {
 183      -re ".*catchpoint.*keep y.*fork, process.*$gdb_prompt $" {
 184        pass "$test_name"
 185      }
 186    }
 187
 188    send_gdb "set follow-fork child\n"
 189    gdb_expect {
 190       -re "$gdb_prompt $" {pass "set follow-fork child"}
 191       timeout         {fail "(timeout) set follow-fork child"}
 192    }
 193    send_gdb "tbreak ${srcfile}:$bp_after_fork\n"
 194    gdb_expect {
 195       -re "Temporary breakpoint.*, line $bp_after_fork.*$gdb_prompt $"\
 196                       {pass "set follow-fork child, tbreak"}
 197       -re "$gdb_prompt $" {fail "set follow-fork child, tbreak"}
 198       timeout         {fail "(timeout) set follow-fork child, tbreak"}
 199    }
 200    send_gdb "continue\n"
 201    gdb_expect {
 202       -re "Attaching after.* fork to.* at .*$bp_after_fork.*$gdb_prompt $"\
 203                       {pass "set follow-fork child, hit tbreak"}
 204       -re "$gdb_prompt $" {fail "set follow-fork child, hit tbreak"}
 205       timeout         {fail "(timeout) set follow-fork child, hit tbreak"}
 206    }
 207    # The parent has been detached; allow time for any output it might
 208    # generate to arrive, so that output doesn't get confused with
 209    # any expected debugger output from a subsequent testpoint.
 210    #
 211    exec sleep 1
 212    send_gdb "delete breakpoints\n"
 213    gdb_expect {
 214       -re "Delete all breakpoints.*$" {
 215          send_gdb "y\n"
 216          gdb_expect {
 217             -re "$gdb_prompt $"\
 218                     {pass "set follow-fork child, cleanup"}
 219             timeout {fail "(timeout) set follow-fork child, cleanup"}
 220          }
 221       }
 222       -re "$gdb_prompt $" {fail "set follow-fork child, cleanup"}
 223       timeout         {fail "(timeout) set follow-fork child, cleanup"}
 224    }
 225 }
 226
 227 proc catch_fork_unpatch_child {} {
 228    global gdb_prompt
 229    global srcfile
 230
 231    set bp_exit [gdb_get_line_number "at exit"]
 232
 233    gdb_test "break callee" "file .*$srcfile, line .*" "unpatch child, break at callee"
 234    gdb_test "catch fork" "Catchpoint \[0-9\]* \\(fork\\)" "unpatch child, set catch fork"
 235
 236    gdb_test "continue" \
 237        "Catchpoint.*\\(forked process.*\\).*,.*in .*(fork|__kernel_v?syscall).*" \
 238        "unpatch child, catch fork"
 239
 240    # Delete all breakpoints and catchpoints.
 241    delete_breakpoints
 242
 243    # Force $srcfile as the current GDB source can be in glibc sourcetree.
 244    gdb_test "break $srcfile:$bp_exit" \
 245        "Breakpoint .*file .*$srcfile, line .*" \
 246        "unpatch child, breakpoint at exit call"
 247
 248    gdb_test "set follow-fork child" "" "unpatch child, set follow-fork child"
 249
 250    set test "unpatch child, unpatched parent breakpoints from child"
 251    gdb_test_multiple "continue" $test {
 252       -re "at exit.*$gdb_prompt $" {
 253           pass "$test"
 254       }
 255       -re "SIGTRAP.*$gdb_prompt $" {
 256           fail "$test"
 257
 258           # Explicitly kill this child, so we can continue gracefully
 259           # with further testing...
 260           send_gdb "kill\n"
 261           gdb_expect {
 262               -re ".*Kill the program being debugged.*y or n. $" {
 263                   send_gdb "y\n"
 264                   gdb_expect -re "$gdb_prompt $" {}
 265               }
 266           }
 267       }
 268       -re ".*$gdb_prompt $" {
 269           fail "$test (unknown output)"
 270       }
 271       timeout {
 272           fail "$test (timeout)"
 273       }
 274    }
 275 }
 276
 277 proc tcatch_fork_parent_follow {} {
 278    global gdb_prompt
 279    global srcfile
 280
 281    set bp_after_fork [gdb_get_line_number "set breakpoint here"]
 282
 283    send_gdb "catch fork\n"
 284    gdb_expect {
 285       -re "Catchpoint .*(fork).*$gdb_prompt $"\
 286                       {pass "explicit parent follow, set tcatch fork"}
 287       -re "$gdb_prompt $" {fail "explicit parent follow, set tcatch fork"}
 288       timeout         {fail "(timeout) explicit parent follow, set tcatch fork"}
 289    }
 290 # ??rehrauer: I don't yet know how to get the id of the tcatch
 291 # via this script, so that I can add a -do list to it.  For now,
 292 # do the follow stuff after the catch happens.
 293
 294    send_gdb "continue\n"
 295    gdb_expect {
 296       -re ".*in .*(fork|__kernel_v?syscall).*$gdb_prompt $"\
 297                       {pass "explicit parent follow, tcatch fork"}
 298       -re "$gdb_prompt $" {fail "explicit parent follow, tcatch fork"}
 299       timeout         {fail "(timeout) explicit parent follow, tcatch fork"}
 300    }
 301    send_gdb "set follow-fork parent\n"
 302    gdb_expect {
 303       -re "$gdb_prompt $" {pass "set follow-fork parent"}
 304       timeout         {fail "(timeout) set follow-fork parent"}
 305    }
 306    send_gdb "tbreak ${srcfile}:$bp_after_fork\n"
 307    gdb_expect {
 308       -re "Temporary breakpoint.*, line $bp_after_fork.*$gdb_prompt $"\
 309                       {pass "set follow-fork parent, tbreak"}
 310       -re "$gdb_prompt $" {fail "set follow-fork parent, tbreak"}
 311       timeout         {fail "(timeout) set follow-fork child, tbreak"}
 312    }
 313    send_gdb "continue\n"
 314    gdb_expect {
 315       -re ".*Detaching after fork from.* at .*$bp_after_fork.*$gdb_prompt $"\
 316                       {pass "set follow-fork parent, hit tbreak"}
 317       -re "$gdb_prompt $" {fail "set follow-fork parent, hit tbreak"}
 318       timeout         {fail "(timeout) set follow-fork parent, hit tbreak"}
 319    }
 320    # The child has been detached; allow time for any output it might
 321    # generate to arrive, so that output doesn't get confused with
 322    # any expected debugger output from a subsequent testpoint.
 323    #
 324    exec sleep 1
 325    send_gdb "delete breakpoints\n"
 326    gdb_expect {
 327       -re "Delete all breakpoints.*$" {
 328          send_gdb "y\n"
 329          gdb_expect {
 330             -re "$gdb_prompt $"\
 331                     {pass "set follow-fork parent, cleanup"}
 332             timeout {fail "(timeout) set follow-fork parent, cleanup"}
 333          }
 334       }
 335       -re "$gdb_prompt $" {fail "set follow-fork parent, cleanup"}
 336       timeout         {fail "(timeout) set follow-fork parent, cleanup"}
 337    }
 338 }
 339
 340 proc do_fork_tests {} {
 341    global gdb_prompt
 342
 343    # Verify that help is available for "set follow-fork-mode".
 344    #
 345    send_gdb "help set follow-fork-mode\n"
 346    gdb_expect {
 347       -re "Set debugger response to a program call of fork or vfork..*
 348 A fork or vfork creates a new process.  follow-fork-mode can be:.*
 349 .*parent  - the original process is debugged after a fork.*
 350 .*child   - the new process is debugged after a fork.*
 351 The unfollowed process will continue to run..*
 352 By default, the debugger will follow the parent process..*$gdb_prompt $"\
 353                       { pass "help set follow-fork" }
 354       -re "$gdb_prompt $" { fail "help set follow" }
 355       timeout         { fail "(timeout) help set follow-fork" }
 356    }
 357
 358    # Verify that we can set follow-fork-mode, using an abbreviation
 359    # for both the flag and its value.
 360    #
 361    send_gdb "set follow-fork ch\n"
 362    send_gdb "show follow-fork\n"
 363    gdb_expect {
 364      -re "Debugger response to a program call of fork or vfork is \"child\".*$gdb_prompt $"\
 365              {pass "set follow-fork, using abbreviations"}
 366      timeout {fail "(timeout) set follow-fork, using abbreviations"}
 367    }
 368
 369    # Verify that we cannot set follow-fork-mode to nonsense.
 370    #
 371    send_gdb "set follow-fork chork\n"
 372    gdb_expect {
 373      -re "Undefined item: \"chork\".*$gdb_prompt $"\
 374                      {pass "set follow-fork to nonsense is prohibited"}
 375      -re "$gdb_prompt $" {fail "set follow-fork to nonsense is prohibited"}
 376      timeout         {fail "(timeout) set follow-fork to nonsense is prohibited"}
 377    }
 378    send_gdb "set follow-fork parent\n"
 379    gdb_expect {
 380      -re "$gdb_prompt $" {pass "set follow-fork to nonsense is prohibited (reset parent)"}
 381      timeout         {fail "set follow-fork to nonsense is prohibited (reset parent)"}
 382    }
 383
 384    # Check that fork catchpoints are supported, as an indicator for whether
 385    # fork-following is supported.
 386    if [runto_main] then { check_fork_catchpoints }
 387
 388    # Test the default behaviour, which is to follow the parent of a
 389    # fork, and detach from the child.  Do this without catchpoints.
 390    #
 391    if [runto_main] then { default_fork_parent_follow }
 392
 393    # Test the ability to explicitly follow the parent of a fork, and
 394    # detach from the child.  Do this without catchpoints.
 395    #
 396    if [runto_main] then { explicit_fork_parent_follow }
 397
 398    # Test the ability to follow the child of a fork, and detach from
 399    # the parent.  Do this without catchpoints.
 400    #
 401    if [runto_main] then { explicit_fork_child_follow }
 402
 403    # Test the ability to follow both child and parent of a fork.  Do
 404    # this without catchpoints.
 405    # ??rehrauer: NYI.  Will add testpoints here when implemented.
 406    #
 407
 408    # Test the ability to have the debugger ask the user at fork-time
 409    # whether to follow the parent, child or both.  Do this without
 410    # catchpoints.
 411    # ??rehrauer: NYI.  Will add testpoints here when implemented.
 412    #
 413
 414    # Test the ability to catch a fork, specify that the child be
 415    # followed, and continue.  Make the catchpoint permanent.
 416    #
 417    if [runto_main] then { catch_fork_child_follow }
 418
 419    # Test that parent breakpoints are successfully detached from the
 420    # child at fork time, even if the user removes them from the
 421    # breakpoints list after stopping at a fork catchpoint.
 422    if [runto_main] then { catch_fork_unpatch_child }
 423
 424    # Test the ability to catch a fork, specify via a -do clause that
 425    # the parent be followed, and continue.  Make the catchpoint temporary.
 426    #
 427    if [runto_main] then { tcatch_fork_parent_follow }
 428 }
 429
 430 # Start with a fresh gdb
 431
 432 gdb_exit
 433 gdb_start
 434 gdb_reinitialize_dir $srcdir/$subdir
 435 gdb_load ${binfile}
 436
 437 # The "Detaching..." and "Attaching..." messages may be hidden by
 438 # default.
 439 gdb_test "set verbose" ""
 440
 441 # This is a test of gdb's ability to follow the parent, child or both
 442 # parent and child of a Unix fork() system call.
 443 #
 444 do_fork_tests
 445
 446 return 0