+ try $t, "multiple $any", $any x 2, '.*';
+ try $t, "multiple $one", $one x 2, '..';
+
+ # Variables
+
+ {
+ local $Regexp::Wildcards::CaptureSingle = 1;
+ try $t, "multiple capturing $one", $one.$one.'\\'.$one.$one,
+ '(.)(.)\\'.$one.'(.)';
+
+ local $Regexp::Wildcards::CaptureAny = 1;
+ try $t, "multiple capturing $any (greedy)", $any.$any.'\\'.$any.$any,
+ '(.*)\\'.$any.'(.*)';
+ my $wc = $any.$any.$one.$one.'\\'.$one.$one.'\\'.$any.$any;
+ try $t, "multiple capturing $any (greedy) and capturing $one",
+ $wc, '(.*)(.)(.)\\'.$one.'(.)\\'.$any.'(.*)';
+
+ $Regexp::Wildcards::CaptureSingle = 0;
+ try $t, "multiple capturing $any (greedy) and non-capturing $one",
+ $wc, '(.*)..\\'.$one.'.\\'.$any.'(.*)';
+
+ $Regexp::Wildcards::CaptureAny = -1;
+ try $t, "multiple capturing $any (non-greedy)", $any.$any.'\\'.$any.$any,
+ '(.*?)\\'.$any.'(.*?)';
+ try $t, "multiple capturing $any (non-greedy) and non-capturing $one",
+ $wc, '(.*?)..\\'.$one.'.\\'.$any.'(.*?)';
+
+ $Regexp::Wildcards::CaptureSingle = 1;
+ try $t, "multiple capturing $any (non-greedy) and capturing $one",
+ $wc, '(.*?)(.)(.)\\'.$one.'(.)\\'.$any.'(.*?)';
+ }