]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blobdiff - t/num_buff/STORE.t
Order the test subdirectories
[perl/modules/re-engine-Plugin.git] / t / num_buff / STORE.t
diff --git a/t/num_buff/STORE.t b/t/num_buff/STORE.t
deleted file mode 100644 (file)
index 3d693a0..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-use strict;
-use Test::More tests => 14;
-
-use re::engine::Plugin (
-    exec => sub {
-        my $re = shift;
-
-        $re->stash( [
-            [ -2, "a" ],
-            [ -2, "a" ],
-            [ -1, "o" ],
-            [ -1, "o" ],
-            [  0, "e" ],
-            [  0, "e" ],
-            [  1, "u" ],
-        ]);
-
-        $re->num_captures(
-            STORE => sub {
-                my ($re, $paren, $sv) = @_;
-                my $test = shift @{ $re->stash };
-
-                is($paren, $test->[0]);
-                is($sv, $test->[1]);
-            },
-        );
-
-        1;
-    },
-);
-
-"a" =~ /a/;
-
-$` = "a";
-${^PREMATCH} = "a";
-$' = "o";
-${^POSTMATCH} = "o";
-$& = "e";
-${^MATCH} = "e";
-$1 = "u";