From 0f824d87258af9d26a63f37f606390d5dcaf082d Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sun, 20 Mar 2011 11:57:20 -0600 Subject: [PATCH] regex .t's: Remove now passing TODOs --- t/re/fold_grind.t | 7 +------ 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 5861bd2..82ca6ad 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 318f816..50ccc88 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] 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] }" -- 2.7.4