locale.t, pat_advanced.t: Remove TODOs

The previous commit fixed these TODOs.

diff --git a/lib/locale.t b/lib/locale.t
index 8237e24..1270314 100644 (file)
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -787,7 +787,7 @@ foreach $Locale (@Locale) {
     tryneoalpha($Locale, $locales_test_number, scalar @failures == 0, $message);
     $message = "";
     $locales_test_number++;
-    $test_names{$locales_test_number} = 'TODO Verify that /[[:lower:]]/i matches sieved uppercase characters.';
+    $test_names{$locales_test_number} = 'Verify that /[[:lower:]]/i matches sieved uppercase characters.';
     $message = 'Failed for ' . join ", ", @fold_failures if @fold_failures;
     tryneoalpha($Locale, $locales_test_number, scalar @fold_failures == 0, $message);
 
@@ -818,8 +818,8 @@ foreach $Locale (@Locale) {
     tryneoalpha($Locale, $locales_test_number, scalar @failures == 0, $message);
     $message = "";
     $locales_test_number++;
-    $test_names{$locales_test_number} = 'TODO Verify that /[[:upper:]]/i matches sieved lowercase characters.';
-    $message = 'TODO Failed for ' . join ", ", @fold_failures if @fold_failures;
+    $test_names{$locales_test_number} = 'Verify that /[[:upper:]]/i matches sieved lowercase characters.';
+    $message = 'Failed for ' . join ", ", @fold_failures if @fold_failures;
     tryneoalpha($Locale, $locales_test_number, scalar @fold_failures == 0, $message);
 
     {   # Find the alphabetic characters that are not considered alphabetics

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 5930ab2..a52ee08 100644 (file)
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -2142,7 +2142,6 @@ EOP
     }
 
     {
-        local $::TODO = "Under /i loading the :lower: swash breaks later :lowers:";
         fresh_perl_is('print eval "\"\x{101}\" =~ /[[:lower:]]/", "\n"; print eval "\"\x{100}\" =~ /[[:lower:]]/i", "\n";',
                       "1\n1",   # Both re's should match
                       "",