- ok(wc2re('?*ab', $t) eq '..*ab', 'simple ? and * (beginning)');
- ok(wc2re('?a*b', $t) eq '.a.*b', 'simple ? and * (middle)');
- ok(wc2re('?ab*', $t) eq '.ab.*', 'simple ? and * (end)');
+ ok(wc2re($one.$any.'ab', $t) eq '..*ab',
+ "simple $one and $any (begin) [$t]");
+ ok(wc2re($one.'a'.$any.'b', $t) eq '.a.*b',
+ "simple $one and $any (middle) [$t]");
+ ok(wc2re($one.'ab'.$any, $t) eq '.ab.*',
+ "simple $one and $any (end) [$t]");