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