Importing IPC-MorseSignals-0.10.tar.gz

[perl/modules/IPC-MorseSignals.git] / t / 02-can.t

diff --git a/t/02-can.t b/t/02-can.t
new file mode 100644 (file)
index 0000000..a78573e
--- /dev/null
+++ b/t/02-can.t
@@ -0,0 +1,19 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 10 + 7;
+
+require IPC::MorseSignals::Emitter;
+
+for (qw/new post pop reset flush busy queued/, qw/new send delay speed/) {
+ ok(IPC::MorseSignals::Emitter->can($_), 'IME can ' . $_);
+}
+
+require IPC::MorseSignals::Receiver;
+
+for (qw/new push reset busy msg/, qw/new/) {
+ ok(IPC::MorseSignals::Receiver->can($_), 'IMR can ' . $_);
+}
+