6 use blib 't/re-engine-Hooks-TestDist';
8 use Test::More tests => 6;
16 use re::engine::Hooks::TestDist 'foo' => $ops;
21 $res = "lettuce" =~ /t{2,3}/;
24 is "@$ops", 'c:EXACT c:CURLY c:END', 'match compilation';
26 is "@$ops", 'e:CURLY e:END', 'match execution';
29 ok $res, 'regexp match result';
34 use re::engine::Hooks::TestDist 'foo';
39 @captures = "babaorum" =~ /([aeiou])/g;
42 is "@$ops", 'c:OPEN c:ANYOF c:CLOSE c:END', 'capture compilation';
44 my $expect = join ' ', ('e:OPEN e:ANYOF e:CLOSE e:END') x 4;
45 is "@$ops", $expect, 'capture execution';
48 is "@captures", 'a a o u', 'regexp capture result';