Order the test subdirectories

[perl/modules/re-engine-Plugin.git] / t / 50-num_buff / STORE.t

diff --git a/t/50-num_buff/STORE.t b/t/50-num_buff/STORE.t
new file mode 100644 (file)
index 0000000..3d693a0
--- /dev/null
+++ b/t/50-num_buff/STORE.t
@@ -0,0 +1,40 @@
+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";