t/30-receiver-obj.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 15;
   7
   8 use Bit::MorseSignals::Receiver;
   9
  10 my $pants = Bit::MorseSignals::Receiver->new;
  11 ok(defined $pants, 'BMR object is defined');
  12 is(ref $pants, 'Bit::MorseSignals::Receiver', 'BMR object is valid');
  13
  14 my $pants2 = $pants->new;
  15 ok(defined $pants2, 'BMR::new called as an object method works' );
  16 is(ref $pants2, 'Bit::MorseSignals::Receiver', 'BMR::new called as an object method works is valid');
  17 ok(!defined Bit::MorseSignals::Receiver::new(), 'BMR::new called without a class is invalid');
  18
  19 eval { $pants2 = Bit::MorseSignals::Receiver->new(qw<a b c>) };
  20 like($@, qr/Optional\s+arguments/, 'BME::new gets parameters as key => value pairs');
  21
  22 my $fake = { };
  23 bless $fake, 'Bit::MorseSignal::Hlagh';
  24 for (qw<push reset busy msg>) {
  25  eval "Bit::MorseSignals::Receiver::$_('Bit::MorseSignals::Receiver')";
  26  like($@, qr/^First\s+argument/, "BMR::$_ isn't a class method");
  27  eval "Bit::MorseSignals::Receiver::$_(\$fake)";
  28  like($@, qr/^First\s+argument/, "BMR::$_ only applies to BMR objects");
  29 }
  30
  31 {
  32  local $_;
  33  ok(!defined($pants->push), 'BMR::push returns undef when \$_ isn\'t defined');
  34 }