Update VPIT::TestHelpers to 15e8aee3

[perl/modules/Bit-MorseSignals.git] / t / 31-receiver-plain.t

diff --git a/t/31-receiver-plain.t b/t/31-receiver-plain.t
index 9c4326ecd0b165776be6e1cad2367a29fa0b1678..279809574bc04715e5fc206d099e562ab48aa0c2 100644 (file)
--- a/t/31-receiver-plain.t
+++ b/t/31-receiver-plain.t
@@ -3,17 +3,18 @@
 use strict;
 use warnings;
 
-use Test::More 'no_plan';
+use Test::More tests => 2;
 
 use Bit::MorseSignals::Receiver;
 
 my $hlagh;
 
-my $pants = new Bit::MorseSignals::Receiver done => sub { $hlagh = $_[1] };
+my $pants = Bit::MorseSignals::Receiver->new(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');