re/charset.t, re/fold_grind.t: Note C locale can match 128-255

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.

diff --git a/t/re/charset.t b/t/re/charset.t
index ebbbeb0..a1e3be1 100644 (file)
--- a/t/re/charset.t
+++ b/t/re/charset.t
@@ -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:
     }
 }
 

diff --git a/t/re/fold_grind.t b/t/re/fold_grind.t
index d073498..3267336 100644 (file)
--- a/t/re/fold_grind.t
+++ b/t/re/fold_grind.t
@@ -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:
     }
 }