]> git.vpit.fr Git - perl/modules/Bit-MorseSignals.git/blob - t/31-receiver-plain.t
Update .gitignore
[perl/modules/Bit-MorseSignals.git] / 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');