From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 9 Nov 2000 14:48:27 +0000 (+0000)
Subject: Disable only the tests 99 and 166 for UTF-8 locales.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f760b1c18c7e150be941a1001c2a063a7aa0386b;p=p5sagit%2Fp5-mst-13.2.git

Disable only the tests 99 and 166 for UTF-8 locales.

p4raw-id: //depot/perl@7628
---

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 21f1b2c..0e11c95 100755
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -405,8 +405,7 @@ if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a|")) {
 
 setlocale(LC_ALL, "C");
 
-# UTF-8 and locales simply do not work yet. --jhi
-@Locale = grep {!/utf-?8/i} @Locale;
+sub utf8locale { $_[0] =~ /utf-?8/i }
 
 @Locale = sort @Locale;
 
@@ -498,7 +497,10 @@ foreach $Locale (@Locale) {
 
 	# Test \w.
     
-	{
+	if (utf8locale($Locale)) {
+	    # Until the polymorphic regexen arrive.
+	    debug "# skipping UTF-8 locale '$Locale'\n";
+	} else {
 	    my $word = join('', @Neoalpha);
 
 	    $word =~ /^(\w+)$/;
@@ -680,7 +682,10 @@ foreach $Locale (@Locale) {
     # Does lc of an UPPER (if different from the UPPER) match
     # case-insensitively the UPPER, and does the UPPER match
     # case-insensitively the lc of the UPPER.  And vice versa.
-    {
+    if (utf8locale($Locale)) {
+        # Until the polymorphic regexen arrive.
+        debug "# skipping UTF-8 locale '$Locale'\n";
+    } else {
 	use locale;
 
 	my @f = ();