diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-20 11:57:20 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-20 12:16:13 -0600 |
| commit | 0f824d87258af9d26a63f37f606390d5dcaf082d (patch) | |
| tree | 2262f976e6287b4174618be1875763269a23b8e0 /t/re | |
| parent | c3e1d013b9da26e290ebf714fdb35fe5e7a97d9d (diff) | |
| download | perl-0f824d87258af9d26a63f37f606390d5dcaf082d.tar.gz | |
regex .t's: Remove now passing TODOs
Diffstat (limited to 't/re')
| -rw-r--r-- | t/re/fold_grind.t | 7 | ||||
| -rw-r--r-- | t/re/reg_fold.t | 4 |
2 files changed, 2 insertions, 9 deletions
diff --git a/t/re/fold_grind.t b/t/re/fold_grind.t index 5861bd2f15..82ca6ad249 100644 --- a/t/re/fold_grind.t +++ b/t/re/fold_grind.t @@ -67,12 +67,7 @@ sub run_test($$$$) { my ($test, $count, $todo, $debug) = @_; $debug = "" unless $DEBUG; - $todo = "Known problem" if $todo; - - TODO: { - local $::TODO = $todo ? "Known problem" : undef; - ok(eval $test, "$test; $debug"); - } + ok(eval $test, "$test; $debug"); } my %tests; # The final set of tests. keys are the code points to test diff --git a/t/re/reg_fold.t b/t/re/reg_fold.t index 318f8160ab..50ccc88de0 100644 --- a/t/re/reg_fold.t +++ b/t/re/reg_fold.t @@ -56,9 +56,7 @@ while (<$fh>) { my $eval = "my \$c = $lhs; $upgrade\$c =~ $rhs"; #print __LINE__, ": $eval\n"; push @tests, qq[ok(eval '$eval', '$eval - $comment')]; - if (! $swap && ($cp eq '0390' || $cp eq '03B0')) { - $tests[-1]="TODO: { local \$::TODO='[13:41] <BinGOs> cue *It is all Greek to me* joke.';\n$tests[-1] }" - } elsif ($charclass && @folded > 1 && $swap && ! $upgrade && ! $fold_above_latin1) { + if ($charclass && @folded > 1 && $swap && ! $upgrade && ! $fold_above_latin1) { $tests[-1]="TODO: { local \$::TODO='Multi-char, non-utf8 folded inside character class [ ] doesnt work';\n$tests[-1] }" } elsif (! $upgrade && $cpv >= 128 && $cpv <= 255 && $cpv != 0xb5) { $tests[-1]="TODO: { local \$::TODO='Most non-utf8 latin1 doesnt work';\n$tests[-1] }" |