X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FBit-MorseSignals.git;a=blobdiff_plain;f=t%2F32-receiver-utf8.t;h=f11a43102a96986a377b2126588bb68b1c97f393;hp=65b614e70ac9930e65ad8fe9ff67988b267c191e;hb=d4cad38280f090c2057f4df1d6ef1fce88ccbcc6;hpb=8ce9fd9d5f4e6197d1a33a3fd11953cc1dc3b31f

diff --git a/t/32-receiver-utf8.t b/t/32-receiver-utf8.t
index 65b614e..f11a431 100644
--- a/t/32-receiver-utf8.t
+++ b/t/32-receiver-utf8.t
@@ -5,17 +5,15 @@ use warnings;
 
 use utf8;
 
-use Test::More 'no_plan';
+use Test::More tests => 1;
 
 use Bit::MorseSignals::Receiver;
 
-my $hlagh;
-
-my $pants = new Bit::MorseSignals::Receiver done => sub { $hlagh = $_[1] };
+my $pants = new Bit::MorseSignals::Receiver;
 
 my $msg  = 'é';
-my @bits = split //, '11110' . '010' . '11000011' . '10010101' . '01111';
+my @bits = split //, '11110' . '100' . '11000011' . '10010101' . '01111';
 
 $pants->push for @bits;
 
-ok(defined $hlagh && $hlagh eq $msg, 'message properly received');
+is($pants->msg, $msg, 'message properly stored');