fix re debug segvs in global destruction, and a tweak to Benchmark to prevent infinit...
[p5sagit/p5-mst-13.2.git] / ext / re / t / regop.pl
1 use re Debug=>qw(DUMP EXECUTE OFFSETS);
2 my @tests=(
3   XY     =>  'X(A|[B]Q||C|D)Y' ,
4   foobar =>  '[f][o][o][b][a][r]',
5   x  =>  '.[XY].',
6   'ABCD' => '(?:ABCP|ABCG|ABCE|ABCB|ABCA|ABCD)',
7   'D:\\dev/perl/ver/28321_/perl.exe'=>
8   '/(\\.COM|\\.EXE|\\.BAT|\\.CMD|\\.VBS|\\.VBE|\\.JS|\\.JSE|\\.WSF|\\.WSH|\\.pyo|\\.pyc|\\.pyw|\\.py)$/i',
9   'q'=>'[q]',
10 );
11 while (@tests) {
12     my ($str,$pat)=splice @tests,0,2;
13     warn "\n";
14     $pat="/$pat/" if substr($pat,0,1) ne '/';
15     # string eval to get the free regex message in the right place.
16     eval qq[
17         warn "$str"=~$pat ? "%MATCHED%" : "%FAILED%","\n";
18     ];
19     die $@ if $@;
20 }