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

diff --git a/t/50-num_buff/LENGTH.t b/t/50-num_buff/LENGTH.t
new file mode 100644
index 0000000..957b39e
--- /dev/null
+++ b/t/50-num_buff/LENGTH.t
@@ -0,0 +1,35 @@
+use strict;
+use Test::More $] < 5.011 ? (tests => 7) : (skip_all => 'Not working in blead');
+
+use re::engine::Plugin (
+    exec => sub {
+        my $re = shift;
+
+        $re->stash( [
+            10, 10,
+            20, 20,
+            30, 30,
+            40,
+        ]);
+
+        $re->num_captures(
+            LENGTH => sub {
+                my ($re, $paren) = @_;
+
+                shift @{ $re->stash };
+            },
+        );
+
+        1;
+    },
+);
+
+"a" =~ /a/;
+
+is(length $`, 10);
+is(length ${^PREMATCH}, 10);
+is(length $', 20);
+is(length ${^POSTMATCH}, 20);
+is(length $&, 30);
+is(length ${^MATCH}, 30);
+is(length $1, 40);