re/charset.t, re/fold_grind.t: Note C locale can match 128-255
authorKarl Williamson <public@khwilliamson.com>
Tue, 19 Feb 2013 20:56:20 +0000 (13:56 -0700)
committerKarl Williamson <public@khwilliamson.com>
Tue, 19 Feb 2013 21:12:50 +0000 (14:12 -0700)
Craig Berry pointed out that an implementation can have the C locale
give meanings to the above-ASCII code points.  (I had thought this was
an error.)  Change label name and comments in these .t files
correspondingly.

t/re/charset.t
t/re/fold_grind.t

index ebbbeb0..a1e3be1 100644 (file)
@@ -45,13 +45,15 @@ if (! is_miniperl() && $Config{d_setlocale}) {
         # time, and the one above is run time
         use if $Config{d_setlocale}, 'locale';
 
-        # Some locale implementations don't have the 128-255 characters all
-        # mean nothing.  Skip the locale tests in that situation
+        # Some implementations don't have the 128-255 range characters all
+        # mean nothing under the C locale (an example being VMS).  This is
+        # legal, but since we don't know what the right answers should be,
+        # skip the locale tests in that situation.
         for my $i (128 .. 255) {
-            goto bad_locale if chr($i) =~ /[[:print:]]/;
+            goto untestable_locale if chr($i) =~ /[[:print:]]/;
         }
         push @charsets, 'l';
-    bad_locale:
+    untestable_locale:
     }
 }
 
index d073498..3267336 100644 (file)
@@ -411,14 +411,16 @@ if($Config{d_setlocale}) {
     if ($current_locale eq 'C') {
         require locale; import locale;
 
-        # Some locale implementations don't have the range 128-255 characters all
-        # mean nothing.  Skip the locale tests in that situation.
+        # Some implementations don't have the 128-255 range characters all
+        # mean nothing under the C locale (an example being VMS).  This is
+        # legal, but since we don't know what the right answers should be,
+        # skip the locale tests in that situation.
         for my $i (128 .. 255) {
             my $char = chr($i);
-            goto bad_locale if uc($char) ne $char || lc($char) ne $char;
+            goto untestable_locale if uc($char) ne $char || lc($char) ne $char;
         }
         push @charsets, 'l';
-      bad_locale:
+      untestable_locale:
     }
 }