This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reg_fold.t: Disable single char fold testing
authorKarl Williamson <public@khwilliamson.com>
Sun, 28 Nov 2010 05:12:13 +0000 (22:12 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 28 Nov 2010 12:49:17 +0000 (04:49 -0800)
This is now more comprehensively done by fold_grind.t

t/re/reg_fold.t

index 135b40e..4f1aa32 100644 (file)
@@ -21,6 +21,7 @@ while (<$fh>) {
     my ($line,$comment)= split/\s+#\s+/, $_;
     my ($cp,$type,@folded)=split/[\s;]+/,$line||'';
     next unless $type and ($type eq 'F' or $type eq 'C');
+    next if $type eq 'C';   # 'C' tests now done by fold_grind.t
     my $fold_above_latin1 = grep { hex("0x$_") > 255 } @folded;
     $_="\\x{$_}" for @folded;
     my $cpv=hex("0x$cp");