X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Fmethods%2Fmod.t;fp=t%2Fmethods%2Fmod.t;h=0000000000000000000000000000000000000000;hb=386630c145754930ffc3a3b0988dd0108f4394db;hp=426182d74742f65ad6fcc757a2c1eff0a6806cb5;hpb=36958ebe8b4c296f858f6b5df8f629cdb341812d;p=perl%2Fmodules%2Fre-engine-Plugin.git

diff --git a/t/methods/mod.t b/t/methods/mod.t
deleted file mode 100644
index 426182d..0000000
--- a/t/methods/mod.t
+++ /dev/null
@@ -1,76 +0,0 @@
-=pod
-
-Test the C<mod> or C<modifiers> method
-
-=cut
-
-use strict;
-use feature ':5.10';
-use Test::More tests => 25;
-
-my @tests = (
-    sub { cmp_ok shift, 'eq', '', => 'no flags' },
-    sub { cmp_ok shift, 'eq', '', => '/c' },
-    sub { cmp_ok shift, 'eq', '' => '/g' },
-    sub { cmp_ok shift, 'eq', 'i' => '/i' },
-    sub { cmp_ok shift, 'eq', 'm' => '/m' },
-    sub { cmp_ok shift, 'eq', ''  => '/o' },
-    sub { cmp_ok shift, 'eq', 's' => '/s' },
-    sub { cmp_ok shift, 'eq', 'x' => '/x' },
-    sub { cmp_ok shift, 'eq', 'p' => '/p' },
-    sub { like $_[0], qr/$_/ => "/$_ in $_[0]" for unpack "(Z)*", "xi" },
-    sub { like $_[0], qr/$_/ => "/$_ in $_[0]" for unpack "(Z)*", "xs" },
-    sub {
-        for (unpack "(Z)*", "cgimsxp") {
-            /[cg]/ and next;
-            like $_[0], qr/$_/ => "/$_ in $_[0]"
-        }
-    },
-    sub { cmp_ok shift, 'eq', '', => '/e' },
-    sub {
-        for (unpack "(Z)*", "egimsxp") {
-            /[ge]/ and next;
-            like $_[0], qr/$_/ => "/$_ in $_[0]";
-        }
-    },
-
-    sub { cmp_ok shift, 'eq', ''  => '??' },
-    # Leave this as the last
-    ,sub { die "add more tests" }
-);
-
-use re::engine::Plugin (
-    exec => sub {
-        my ($re, $str) = @_;
-
-        my $t = shift @tests;
-
-        my %mod = $re->mod;
-
-        my $mod_str = join '', keys %mod;
-
-        $t->($mod_str);
-    }
-);
-
-# Provide a pattern that can match to avoid running into regexp
-# optimizations that won't call exec on C<"" =~ //>;
-
-"" =~ /x/;
-"" =~ /x/cg; # meaningless without /g
-"" =~ /x/g;
-"" =~ /x/i;
-"" =~ /x/m;
-"" =~ /x/o;
-"" =~ /x/s;
-"" =~ /x/x;
-"" =~ /x/p;
-"" =~ /x/xi;
-"" =~ /x/xs;
-"" =~ /x/cgimosxp;
-
-my $_ = "";
-
-$_ =~ s/1/2/e;
-$_ =~ s/1/2/egimosxp;
-$_ =~ ??;