6 use Test::More tests => 3;
8 use Bit::MorseSignals::Receiver;
10 my $pants = new Bit::MorseSignals::Receiver;
11 ok(defined $pants, 'BMR object is defined');
12 ok(ref $pants eq 'Bit::MorseSignals::Receiver', 'BMR object is valid');
15 bless $fake, 'Bit::MorseSignal::Hlagh';
16 eval { Bit::MorseSignals::Receiver::reset($fake) };
17 ok($@ && $@ =~ /^First\s+argument/, "BMR methods only apply to BMR objects");