Importing re-engine-Plugin-0.04_01.tar.gz

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

diff --git a/t/methods/str/types.t b/t/methods/str/types.t
index f79ba36349c7f4de9fa36c914c61b643a3368b9b..ed45fb1b774c6879752d60078ce55ef4311f6c93 100644 (file)
--- a/t/methods/str/types.t
+++ b/t/methods/str/types.t
@@ -4,18 +4,18 @@ use re::engine::Plugin (
     exec => sub {
         my ($re, $str) = @_;
 
-        is_deeply($str, $re->str);
+        isa_ok($str, $re->pattern);
 
         return 1;
     },
 );
 
 my $sv;
-"SCALAR" =~ \$sv;
-"REF"    =~ \\$sv;
-"ARRAY"  =~ [];
-"HASH"   =~ {};
-"GLOB"   =~ \*STDIN;
-"CODE"   =~ sub {};
-"main"   =~ bless {} => "main";
+\$sv    =~ "SCALAR";
+\\$sv   =~ "REF";
+[]      =~ "ARRAY";
+{}      =~ "HASH";
+\*STDIN =~ "GLOB";
+sub {}  =~ "CODE";
+bless({} => "main") =~ "main"