X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Plugin.git;a=blobdiff_plain;f=t%2Fmethods%2Fstr%2Ftypes.t;h=f5064e9aadb2fa0cc8df73a0f5fdd143e65f17cc;hp=f79ba36349c7f4de9fa36c914c61b643a3368b9b;hb=86e082409eeb8df843893486f92273c0e46d7637;hpb=5b5f13004fe16542da2b113b9b45157ceccef343

diff --git a/t/methods/str/types.t b/t/methods/str/types.t
index f79ba36..f5064e9 100644
--- a/t/methods/str/types.t
+++ b/t/methods/str/types.t
@@ -4,18 +4,17 @@ 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"