Major rewrite

[perl/modules/Regexp-Wildcards.git] / t / 02-can.t

diff --git a/t/02-can.t b/t/02-can.t
new file mode 100644 (file)
index 0000000..35879cb
--- /dev/null
+++ b/t/02-can.t
@@ -0,0 +1,13 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 5;
+
+require Regexp::Wildcards;
+
+for (qw/new do capture type convert/) {
+ ok(Regexp::Wildcards->can($_), 'RW can ' . $_);
+}
+