X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Fnum_buff%2FLENGTH.t;fp=t%2Fnum_buff%2FLENGTH.t;h=0000000000000000000000000000000000000000;hb=386630c145754930ffc3a3b0988dd0108f4394db;hp=957b39edb473c28bb94d2cdb6423718852b6488f;hpb=36958ebe8b4c296f858f6b5df8f629cdb341812d;p=perl%2Fmodules%2Fre-engine-Plugin.git diff --git a/t/num_buff/LENGTH.t b/t/num_buff/LENGTH.t deleted file mode 100644 index 957b39e..0000000 --- a/t/num_buff/LENGTH.t +++ /dev/null @@ -1,35 +0,0 @@ -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);