[p5sagit/p5-mst-13.2.git] / t / op / fork.t

#!./perl

# $Header: fork.t,v 4.0 91/03/20 01:52:43 lwall Locked $

$| = 1;
print "1..2\n";

if ($cid = fork) {
    sleep 2;
    if ($result = (kill 9, $cid)) {print "ok 2\n";} else {print "not ok 2 $result\n";}
}
else {
    $| = 1;
    print "ok 1\n";
    sleep 10;
}
Commit	Line	Data
8d063cd8	1	#!./perl
8d063cd8	2
fe14fcc3	3	# $Header: fork.t,v 4.0 91/03/20 01:52:43 lwall Locked $
8d063cd8	4
	5	$\| = 1;
	6	print "1..2\n";
	7
	8	if ($cid = fork) {
	9	sleep 2;
	10	if ($result = (kill 9, $cid)) {print "ok 2\n";} else {print "not ok 2 $result\n";}
	11	}
	12	else {
	13	$\| = 1;
	14	print "ok 1\n";
	15	sleep 10;
	16	}