]> git.vpit.fr Git - perl/modules/IPC-MorseSignals.git/blob - t/10-sigusr.t
Kwalitee test overhaul
[perl/modules/IPC-MorseSignals.git] / t / 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}');