Order the test subdirectories

[perl/modules/re-engine-Plugin.git] / t / 20-methods / str / types.t

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