From f760b1c18c7e150be941a1001c2a063a7aa0386b Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Thu, 9 Nov 2000 14:48:27 +0000 Subject: [PATCH] Disable only the tests 99 and 166 for UTF-8 locales. p4raw-id: //depot/perl@7628 --- t/pragma/locale.t | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) 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 = (); -- 2.7.4