8 use Test::More 'no_plan';
10 use Bit::MorseSignals::Receiver;
14 my $pants = new Bit::MorseSignals::Receiver done => sub { $hlagh = $_[1] };
17 my @bits = split //, '11110' . '010' . '11000011' . '10010101' . '01111';
19 $pants->push for @bits;
21 ok(defined $hlagh && $hlagh eq $msg, 'message properly received');