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' );