diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-12-25 14:32:56 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-12-25 15:54:53 -0700 |
| commit | 7b7ef1799255a4a4654ab0d681144b1ed9f2d3f6 (patch) | |
| tree | 4b6004c1f7d100bfb336933d00062777d0953975 | |
| parent | 526c964465a4dc7ee07f4f5566d4137d0062decb (diff) | |
| download | perl-7b7ef1799255a4a4654ab0d681144b1ed9f2d3f6.tar.gz | |
re/reg_fold.t: Test more code points
This statement was wrong that said all these things are tested in
fold_grind.t. It will test them all when run with a particular option,
but due to time issues, it skips many code points. reg_fold.t, on the
other hand, does just basic sanity testing, and so should always test
every code point for that.
| -rw-r--r-- | t/re/reg_fold.t | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/t/re/reg_fold.t b/t/re/reg_fold.t index c01715232f..e8c6262a35 100644 --- a/t/re/reg_fold.t +++ b/t/re/reg_fold.t @@ -18,7 +18,6 @@ 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"); |