use v6-alpha;
use Test;
plan 5;
{
ok( eval(q{use re 'pge'; 1}), 'can import the re module');
is(%ENV<PUGS_REGEX_ENGINE>, 'PGE', 're module can set engine to PGE');
}
{
eval q{use re 'PCR'};
is(%ENV<PUGS_REGEX_ENGINE>, 'PCR', 're module can set engine to PCR');
}
{
eval q[use re];
is(%ENV<PUGS_REGEX_ENGINE>, 'PCR', 'argument must be provided');
}
{
eval q[use re 'garbage'];
is(%ENV<PUGS_REGEX_ENGINE>, 'PCR', 'garbage value not accepted');
}