X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-sigusr.t;fp=t%2F10-sigusr.t;h=bfe2dc29ed9f56d198b1265c9a9a958ad89bf151;hb=ddcc7c395d570f0ea20a8e9a242fcbfcc0e49522;hp=0000000000000000000000000000000000000000;hpb=13c16aeec1454ae58e932b393e827d6353c13231;p=perl%2Fmodules%2FIPC-MorseSignals.git

diff --git a/t/10-sigusr.t b/t/10-sigusr.t
new file mode 100644
index 0000000..bfe2dc2
--- /dev/null
+++ b/t/10-sigusr.t
@@ -0,0 +1,19 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+use POSIX qw/SIGUSR1 SIGUSR2/;
+
+my ($a, $b) = (0, 0);
+
+local $SIG{'USR1'} = sub { ++$a };
+local $SIG{'USR2'} = sub { ++$b };
+
+kill SIGUSR1 => $$;
+ok(($a == 1) && ($b == 0), 'SIGUSR1');
+
+kill SIGUSR2 => $$;
+ok(($a == 1) && ($b == 1), 'SIGUSR2');