X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Fnum_buff%2FFETCH.t;fp=t%2Fnum_buff%2FFETCH.t;h=0000000000000000000000000000000000000000;hb=386630c145754930ffc3a3b0988dd0108f4394db;hp=39d3f6ce3cc08fe7740bfd99fc01b30aa83af022;hpb=36958ebe8b4c296f858f6b5df8f629cdb341812d;p=perl%2Fmodules%2Fre-engine-Plugin.git diff --git a/t/num_buff/FETCH.t b/t/num_buff/FETCH.t deleted file mode 100644 index 39d3f6c..0000000 --- a/t/num_buff/FETCH.t +++ /dev/null @@ -1,35 +0,0 @@ -use strict; -use Test::More tests => 7; - -use re::engine::Plugin ( - exec => sub { - my $re = shift; - - $re->num_captures( - FETCH => sub { - my ($re, $paren) = @_; - - my %ret = ( - -2 => 10, - -1 => 20, - 0 => 30, - 1 => 40, - ); - - $ret{$paren}; - } - ); - - 1; - }, -); - -"a" =~ /a/; - -is($`, 10, '$`'); -is(${^PREMATCH}, 10, '${^PREMATCH}'); -is($', 20, q($')); -is(${^POSTMATCH}, 20, '${^POSTMATCH}'); -is($&, 30, '$&'); -is(${^MATCH}, 30, '${^MATCH}'); -is($1, 40, '$1');