Switch to qw<>

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

diff --git a/t/02-can.t b/t/02-can.t
index dc87461819f2a7c80d3753e1482e3958189513cc..c83fee3754803366585c70dd8a1ed445cbdb69a1 100644 (file)
--- a/t/02-can.t
+++ b/t/02-can.t
@@ -3,17 +3,17 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7 + 5;
+use Test::More tests => 9 + 5;
 
 require Bit::MorseSignals::Emitter;
 
-for (qw/new post pop reset flush busy queued/) {
+for (qw<new post pop len pos reset flush busy queued>) {
  ok(Bit::MorseSignals::Emitter->can($_), 'BME can ' . $_);
 }
 
 require Bit::MorseSignals::Receiver;
 
-for (qw/new push reset busy msg/) {
+for (qw<new push reset busy msg>) {
  ok(Bit::MorseSignals::Receiver->can($_), 'BMR can ' . $_);
 }