This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fold_grind.t: Only test [char classes]
authorKarl Williamson <public@khwilliamson.com>
Mon, 15 Nov 2010 20:19:18 +0000 (13:19 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 22 Nov 2010 21:32:57 +0000 (13:32 -0800)
I meant to do this on the initial commit for this .t.  The
non-char-class tests show many failures now, as they are more
comprehensive than the reg_fold.t ones.  Until I iron those out, use
reg_fold.t for these.

t/re/fold_grind.t

index f59956a..07b0a1b 100644 (file)
@@ -258,7 +258,7 @@ foreach my $test (sort { numerically } keys %tests) {
           my @rhs = @x_pattern;
           #print "$lhs: ", "/@rhs/\n";
 
-          foreach my $bracketed (0, 1) {   # Put rhs in [...], or not
+          foreach my $bracketed (1) {   # Put rhs in [...], or not
             foreach my $inverted (0,1) {
                 next if $inverted && ! $bracketed;