X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Fnum_buff%2FSTORE.t;fp=t%2Fnum_buff%2FSTORE.t;h=0000000000000000000000000000000000000000;hb=386630c145754930ffc3a3b0988dd0108f4394db;hp=3d693a0d8be1c813fe4293a8f29c69ff28bd125b;hpb=36958ebe8b4c296f858f6b5df8f629cdb341812d;p=perl%2Fmodules%2Fre-engine-Plugin.git diff --git a/t/num_buff/STORE.t b/t/num_buff/STORE.t deleted file mode 100644 index 3d693a0..0000000 --- a/t/num_buff/STORE.t +++ /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";