t/31-receiver-plain.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2;
   7
   8 use Bit::MorseSignals::Receiver;
   9
  10 my $hlagh;
  11
  12 my $pants = new Bit::MorseSignals::Receiver done => sub { $hlagh = $_[1] };
  13
  14 my $msg  = 'x';
  15 my @bits = split //, '111110' . '000' . '00011110' . '011111';
  16
  17 $pants->push($_) for @bits;
  18
  19 is($hlagh,      $msg, 'message properly received');
  20 is($pants->msg, $msg, 'message properly stored');