Small optimisations, by Brandon Black
[p5sagit/p5-mst-13.2.git] / t / op / kill0.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6     require './test.pl';
7 }
8
9 BEGIN {
10     if ($^O eq 'riscos') {
11         skip_all("kill() not implemented on this platform");
12     }
13 }
14
15 use strict;
16
17 plan tests => 2;
18
19 ok( kill(0, $$), 'kill(0, $pid) returns true if $pid exists' );
20
21 # It's not easy to come up with an individual PID that is known not to exist,
22 # so just check that at least some PIDs in a large range are reported not to
23 # exist.
24 my $count = 0;
25 my $total = 30_000;
26 for my $pid (1 .. $total) {
27   ++$count if kill(0, $pid);
28 }
29 # It is highly unlikely that all of the above PIDs are genuinely in use,
30 # so $count should be less than $total.
31 ok( $count < $total, 'kill(0, $pid) returns false if $pid does not exist' );