use strict;
use Test::More 'no_plan';
use re::engine::TRE;
if ("str" =~ /(s)(t)(r)/x) {
cmp_ok $1, 'eq', 's' => '$1 is s';
cmp_ok $2, 'eq', 't' => '$2 is t';
cmp_ok $3, 'eq', 'r' => '$3 is r';
}
my @chr = ('A' ..'Z', 'a' .. 'z', 0 .. 9);
my $str = join '', @chr;
my $re = join '', map { "($_)" } @chr;
no strict 'refs';
if ($str =~ /$re/x) {
for (my $i = 1; $i <= @chr; $i++) {
cmp_ok $$i, 'eq', $chr[$i-1];
}
}