diff options
Diffstat (limited to 'contrib/perl5/t/op/fork.t')
-rwxr-xr-x | contrib/perl5/t/op/fork.t | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/contrib/perl5/t/op/fork.t b/contrib/perl5/t/op/fork.t new file mode 100755 index 0000000..9790ff0 --- /dev/null +++ b/contrib/perl5/t/op/fork.t @@ -0,0 +1,26 @@ +#!./perl + +# $RCSfile: fork.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:53 $ + +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; + require Config; import Config; + unless ($Config{'d_fork'}) { + print "1..0\n"; + exit 0; + } +} + +$| = 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; +} |