6 use blib 't/re-engine-Hooks-TestDist';
8 use Test::More tests => 4 * 2;
10 my ($foo_ops, $bar_ops, $expect);
14 $expect = 'c:EXACT c:CURLY c:END';
18 use re::engine::Hooks::TestDist 'foo' => $foo_ops;
19 use re::engine::Hooks::TestDist 'bar' => $bar_ops;
29 is "@$foo_ops", $expect, 'match compilation by foo and bar : the foo case';
30 is "@$bar_ops", $expect, 'match compilation by foo and bar : the bar case';
35 use re::engine::Hooks::TestDist 'foo';
42 "cabbage" =~ /b{2,3}/;
45 is "@$foo_ops", $expect, 'match compilation by foo only : the foo case';
46 is "@$bar_ops", '', 'match compilation by foo only : the bar case';
51 use re::engine::Hooks::TestDist 'bar';
58 "pepperoni" =~ /p{2,3}/;
61 is "@$foo_ops", '', 'match compilation by foo only : the foo case';
62 is "@$bar_ops", $expect, 'match compilation by foo only : the bar case';
66 use re::engine::Hooks::TestDist 'foo';
73 'eggplant' =~ /g{2,3}/;
76 is "@$foo_ops", $expect, 'match compilation by bar and foo : the foo case';
77 is "@$bar_ops", $expect, 'match compilation by bar and foo : the bar case';