]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blobdiff - t/20-methods/pattern/types.t
Order the test subdirectories
[perl/modules/re-engine-Plugin.git] / t / 20-methods / pattern / types.t
diff --git a/t/20-methods/pattern/types.t b/t/20-methods/pattern/types.t
new file mode 100644 (file)
index 0000000..8675336
--- /dev/null
@@ -0,0 +1,19 @@
+use strict;
+use Test::More tests => 7;
+use re::engine::Plugin (
+    exec => sub {
+        my ($re, $str) = @_;
+        my $pattern = $re->pattern;
+
+        isa_ok($pattern, $str);
+    },
+);
+
+my $sv;
+"SCALAR" =~ \$sv;
+"REF"    =~ \\$sv;
+"ARRAY"  =~ [];
+"HASH"   =~ {};
+"GLOB"   =~ \*STDIN;
+"CODE"   =~ sub {};
+"main"   =~ bless {} => "main";