use strict;
use warnings;
-use Test::More 'no_plan';
+use Test::More tests => 2;
use Bit::MorseSignals::Receiver;
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');