8 use Test::More tests => 5;
10 use Bit::MorseSignals::Receiver;
14 my $pants = new Bit::MorseSignals::Receiver done => sub { $hlagh = $_[1] };
16 my $wrong = "\x{FF}\x{FF}";
18 my @bits = split //, '001' . '010' . (unpack 'b*', $wrong) . '100';
20 local $SIG{__WARN__} = sub { die "WARNED @_" };
21 $pants->push for @bits;
23 ok($@, 'invalid Storable data warns');
26 @bits = split //, '0001' . '001' . (unpack 'b*', $wrong) . '1000';
28 local $SIG{__WARN__} = sub { die "WARNED @_" };
29 $pants->push for @bits;
31 ok(!$@, "third bit lit doesn't warn ($@)");
32 is($hlagh, $wrong, 'third bit lit defaults to plain');
34 @bits = split //, '0001' . '110' . (unpack 'b*', $wrong) . '1000';
36 local $SIG{__WARN__} = sub { die "WARNED @_" };
37 $pants->push for @bits;
39 ok(!$@, "unused type doesn't warn ($@)");
40 is($hlagh, $wrong, 'unused type returns raw data');