10-sigusr.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   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 is($a, 1, 'SIGUSR1 triggers $SIG{USR1}');
  17 is($b, 0, 'SIGUSR1 doesn\'t trigger $SIG{USR2}');
  18
  19 kill SIGUSR2 => $$;
  20 is($a, 1, 'SIGUSR2 doesn\'t trigger $SIG{USR1}');
  21 is($b, 1, 'SIGUSR2 triggers $SIG{USR2}');