X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FBit-MorseSignals.git;a=blobdiff_plain;f=t%2F31-receiver-plain.t;h=899f3f2d90773933d7c2b3eed5d69e4c08f5fd5f;hp=9c4326ecd0b165776be6e1cad2367a29fa0b1678;hb=d4cad38280f090c2057f4df1d6ef1fce88ccbcc6;hpb=8ce9fd9d5f4e6197d1a33a3fd11953cc1dc3b31f

diff --git a/t/31-receiver-plain.t b/t/31-receiver-plain.t
index 9c4326e..899f3f2 100644
--- a/t/31-receiver-plain.t
+++ b/t/31-receiver-plain.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More 'no_plan';
+use Test::More tests => 2;
 
 use Bit::MorseSignals::Receiver;
 
@@ -14,6 +14,7 @@ my $pants = new Bit::MorseSignals::Receiver done => sub { $hlagh = $_[1] };
 my $msg  = 'x';
 my @bits = split //, '111110' . '000' . '00011110' . '011111';
 
-$pants->push for @bits;
+$pants->push($_) for @bits;
 
-ok(defined $hlagh && $hlagh eq $msg, 'message properly received');
+is($hlagh,      $msg, 'message properly received');
+is($pants->msg, $msg, 'message properly stored');