X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F20-methods%2Fpattern%2Ftypes.t;fp=t%2F20-methods%2Fpattern%2Ftypes.t;h=86753368be80b731ef50c72c436f8701456ae68b;hb=386630c145754930ffc3a3b0988dd0108f4394db;hp=0000000000000000000000000000000000000000;hpb=36958ebe8b4c296f858f6b5df8f629cdb341812d;p=perl%2Fmodules%2Fre-engine-Plugin.git

diff --git a/t/20-methods/pattern/types.t b/t/20-methods/pattern/types.t
new file mode 100644
index 0000000..8675336
--- /dev/null
+++ b/t/20-methods/pattern/types.t
@@ -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";