X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FIPC-MorseSignals.git;a=blobdiff_plain;f=t%2F10-sigusr.t;h=60b17b2a1833628c18aa30f85d94e4a2186e6705;hp=bfe2dc29ed9f56d198b1265c9a9a958ad89bf151;hb=9370c8d2ab07f434272dbbddb92bdd5d8d1fe3af;hpb=db7266fa5be4347aac1d32a994d6529c7b5a4afb

diff --git a/t/10-sigusr.t b/t/10-sigusr.t
index bfe2dc2..60b17b2 100644
--- a/t/10-sigusr.t
+++ b/t/10-sigusr.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
+use Test::More tests => 4;
 
 use POSIX qw/SIGUSR1 SIGUSR2/;
 
@@ -13,7 +13,9 @@ local $SIG{'USR1'} = sub { ++$a };
 local $SIG{'USR2'} = sub { ++$b };
 
 kill SIGUSR1 => $$;
-ok(($a == 1) && ($b == 0), 'SIGUSR1');
+is($a, 1, 'SIGUSR1 triggers $SIG{USR1}');
+is($b, 0, 'SIGUSR1 doesn\'t trigger $SIG{USR2}');
 
 kill SIGUSR2 => $$;
-ok(($a == 1) && ($b == 1), 'SIGUSR2');
+is($a, 1, 'SIGUSR2 doesn\'t trigger $SIG{USR1}');
+is($b, 1, 'SIGUSR2 triggers $SIG{USR2}');