This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: Don't skip certain tests
authorKarl Williamson <public@khwilliamson.com>
Mon, 12 Aug 2013 18:47:50 +0000 (12:47 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 12 Aug 2013 19:51:23 +0000 (13:51 -0600)
The removed code caused tests to be skipped when the locale doesn't add
any \w characters beyond the C locale.  That meant in practice these
tests were likely skipped only for the C and POSIX locales.  The problem
is that doing this required extra complexity in figuring out how many
tests to skip.  Removing this makes the code easier to understand and
maintain.

lib/locale.t

index a43039c..11fcd1a 100644 (file)
@@ -852,16 +852,6 @@ foreach $Locale (@Locale) {
 
     debug "# Added_alpha = ", join("",@Added_alpha), "\n";
 
-    my $first_Added_alpha_test_number =  $locales_test_number + 1;
-    my $final_Added_alpha_test_number =  $first_Added_alpha_test_number + 20;
-    if (@Added_alpha == 0) {
-       # If we have no Added_alpha the remaining tests are no-ops.
-       debug "# no Added_alpha, skipping tests $first_Added_alpha_test_number..$final_Added_alpha_test_number for locale '$Locale'\n";
-       foreach ($locales_test_number+1..$final_Added_alpha_test_number) {
-           push @{$Okay{$_}}, $Locale;
-            $locales_test_number++;
-       }
-    } else {
 
        # Cross-check the whole 8-bit character set.
 
@@ -1265,15 +1255,6 @@ foreach $Locale (@Locale) {
                }
            }
        }
-    }
-
-    if ($locales_test_number != $final_Added_alpha_test_number) {
-        die("The delta for \$final_Added_alpha needs to be updated from "
-            . ($final_Added_alpha_test_number - $first_Added_alpha_test_number)
-            . " to "
-            . ($locales_test_number - $first_Added_alpha_test_number)
-            );
-    }
 
     my $ok1;
     my $ok2;