6 use Test::More 'no_plan';
8 use Bit::MorseSignals::Emitter;
10 my $deuce = new Bit::MorseSignals::Emitter;
14 my ($desc, $b, $e) = @_;
15 ok(defined $b && $b == $e,
16 "$desc: bit $i : " . (defined $b ? "got $b, expected $e" : 'undef'));
21 my ($desc, $exp) = @_;
27 ok($deuce->busy, "$desc: BME object is busy after pop $i");
28 test_bit $desc, $b, $_;
32 ok(!$deuce->busy, "$desc: BME object is no longer busy when over");
33 test_bit $desc, $b, $last;
37 my @exp = split //, '111110' . '000' . '00011110' . '011111';
39 my $ret = eval { $deuce->post($msg) };
40 ok(!$@, "simple post doesn't croak ($@)");
41 ok(defined $ret && $ret > 0, 'simple post was successful');
42 ok($deuce->busy, 'BME object is busy after simple post');
43 ok(!$deuce->queued, 'BME object has no message queued after simple post');
45 test_msg 'simple post', [ @exp ];
46 ok(!defined $deuce->pop, "simple post: message is over");
48 $ret = eval { $deuce->post($msg) };
49 ok(!$@, "first double post doesn't croak ($@)");
50 ok(defined $ret && $ret > 0, 'first double post was successful');
51 ok($deuce->busy, 'BME object is busy after first double post');
52 ok(!$deuce->queued, 'BME object has no message queued after first double post');
54 $ret = eval { $deuce->post($msg) };
55 ok(!$@, "second double post doesn't croak ($@)");
56 ok(defined $ret && $ret < 0, 'second double post was queued');
57 ok($deuce->busy, 'BME object is busy after second double post');
58 ok($deuce->queued, 'BME object has a message queued after second double post');
60 test_msg 'first double post', [ @exp ];
61 ok(!$deuce->busy && $deuce->queued, 'first double post: BME object is no longer busy but still has something in queue between the two posts');
62 test_msg 'second double post', [ @exp ];
63 ok(!defined $deuce->pop, "second double post: message is over");