Importing IPC-MorseSignals-0.15.tar.gz

[perl/modules/IPC-MorseSignals.git] / t / 10-sigusr.t

diff --git a/t/10-sigusr.t b/t/10-sigusr.t
index bfe2dc29ed9f56d198b1265c9a9a958ad89bf151..60b17b2a1833628c18aa30f85d94e4a2186e6705 100644 (file)
--- 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}');