t/02-can.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 10 + 7;
   7
   8 require IPC::MorseSignals::Emitter;
   9
  10 for (qw<new post pop reset flush busy queued>, qw<new send delay speed>) {
  11  ok(IPC::MorseSignals::Emitter->can($_), 'IME can ' . $_);
  12 }
  13
  14 require IPC::MorseSignals::Receiver;
  15
  16 for (qw<new push reset busy msg>, qw<new>) {
  17  ok(IPC::MorseSignals::Receiver->can($_), 'IMR can ' . $_);
  18 }
  19