t/02-sigusr.t

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