[perl5.git] / t / op / kill0_child

# kill0_child: an auxiliary script called from t/op/kill0.t
#
# $ARGV[0] is the filename that is used to notify the parent .t perl
# process that all PIDs are started in the process tree.
# The numbers 9999s and 9998 are intended to be eye catching; they will
# only appear if we're not killed in time.

system(1, $^X, '-e', 'sleep 5; print qq|not ok 9999 - inner child process wasn\'t killed\n|;');
system('echo outer child started > "'.$ARGV[0].'"');
sleep 5;

# execution won't reach here if the test is successful
print "not ok 9998 - outer child process wasn\'t killed\n";
unlink($ARGV[0]);
Commit	Line	Data
4c0e595c DM	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
af728ca1 DD	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;
4c0e595c DM	11
4c0e595c DM	12	# execution won't reach here if the test is successful
af728ca1 DD	13	print "not ok 9998 - outer child process wasn\'t killed\n";
af728ca1 DD	14	unlink($ARGV[0]);