Importing Bit-MorseSignals-0.06.tar.gz

[perl/modules/Bit-MorseSignals.git] / t / 32-receiver-utf8.t

diff --git a/t/32-receiver-utf8.t b/t/32-receiver-utf8.t
index 65b614e70ac9930e65ad8fe9ff67988b267c191e..f11a43102a96986a377b2126588bb68b1c97f393 100644 (file)
--- 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');