t/op/kill0_child

   1 # kill0_child: an auxiliary script called from t/op/kill0.t
   2 #
   3 # $ARGV[0] is the filename that is used to notify the parent .t perl
   4 # process that all PIDs are started in the process tree.
   5 # The numbers 9999s and 9998 are intended to be eye catching; they will
   6 # only appear if we're not killed in time.
   7
   8 system(1, $^X, '-e', 'sleep 5; print qq|not ok 9999 - inner child process wasn\'t killed\n|;');
   9 system('echo outer child started > "'.$ARGV[0].'"');
  10 sleep 5;
  11
  12 # execution won't reach here if the test is successful
  13 print "not ok 9998 - outer child process wasn\'t killed\n";
  14 unlink($ARGV[0]);