This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.t: Revise tests
authorKarl Williamson <public@khwilliamson.com>
Mon, 16 Jan 2012 19:40:17 +0000 (12:40 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 21 Jan 2012 17:02:53 +0000 (10:02 -0700)
As indicated in the comment, the earlier incarnation of this commented
out "no locale" thus defeating the purpose of the tests.

lib/locale.t

index b3c4d52..445e885 100644 (file)
@@ -708,10 +708,16 @@ foreach $Locale (@Locale) {
        tryneoalpha($Locale, 107, $c == $d);
 
        {
-#          no locale; # XXX did this ever work correctly?
+           no locale;
        
-           my $e = "$x";
-
+            # The earlier test was $e = "$x".  But this fails [perl #108378],
+            # and the "no locale" was commented out.  But doing that made all
+            # the tests in the block after this one meaningless, as originally
+            # it was testing the nesting of a "no locale" scope, and how it
+            # recovers after that scope is done.  So I (khw) filed a bug
+            # report and changed this so it wouldn't fail.  It seemed too much
+            # work to add TODOs instead.
+           my $e = $x;
            debug "# 108..110: e = $e, Locale = $Locale\n";
 
            tryneoalpha($Locale, 108, $e == 1.23);