6 use Test::More tests => 2;
8 use Bit::MorseSignals::Receiver;
12 my $pants = new Bit::MorseSignals::Receiver done => sub { $hlagh = $_[1] };
15 my @bits = split //, '111110' . '000' . '00011110' . '011111';
17 $pants->push($_) for @bits;
19 is($hlagh, $msg, 'message properly received');
20 is($pants->msg, $msg, 'message properly stored');