my $deuce = new IPC::MorseSignals::Emitter speed => 1024;
my $pants = new IPC::MorseSignals::Receiver \%SIG, done => sub {
my $cur = shift @msgs;
- ok($_[1] eq $cur, 'got ' . $_[1] . ', received ' . $cur)
+ is($_[1], $cur, "message correctly received");
};
$deuce->post($_) for @msgs;