+++ /dev/null
-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');