t/02-sigusr.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2;
   7
   8 use POSIX qw/SIGUSR1 SIGUSR2/;
   9
  10 my ($a, $b) = (0, 0);
  11
  12 local $SIG{'USR1'} = sub { ++$a };
  13 local $SIG{'USR2'} = sub { ++$b };
  14
  15 kill SIGUSR1 => $$;
  16 ok(($a == 1) && ($b == 0), 'SIGUSR1');
  17
  18 kill SIGUSR2 => $$;
  19 ok(($a == 1) && ($b == 1), 'SIGUSR2');