This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: Make Windows machines failures TODOs
authorKarl Williamson <public@khwilliamson.com>
Thu, 15 Aug 2013 19:40:51 +0000 (13:40 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 15 Aug 2013 22:49:31 +0000 (16:49 -0600)
On some Windows machines, all locales are defective except the C locale.
See http://markmail.org/message/5jwam4xsx4amsdnv.

lib/locale.t

index 4433f58..31d97e5 100644 (file)
@@ -29,7 +29,11 @@ my $debug = $ENV{PERL_DEBUG_FULL_TEST} // 0;
 
 # Certain tests have been shown to be problematical for a few locales.  Don't
 # fail them unless at least this percentage of the tested locales fail.
 
 # Certain tests have been shown to be problematical for a few locales.  Don't
 # fail them unless at least this percentage of the tested locales fail.
-my $acceptable_fold_failure_percentage = 5;
+# Some Windows machines are defective in every in every locale but the C,
+# calling \t printable; superscripts to be digits, etc.  See
+# http://markmail.org/message/5jwam4xsx4amsdnv
+# (There aren't 1000 locales currently in existence, so 99.9 works)
+my $acceptable_fold_failure_percentage = $^O eq 'MSWin32' ? 99.9 : 5;
 
 use Dumpvalue;
 
 
 use Dumpvalue;