diff options
| author | Karl Williamson <khw@cpan.org> | 2015-03-08 22:26:17 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-09 09:37:08 -0600 |
| commit | ef9d5242d3ebebaa273eaaaf24138e38db8939b2 (patch) | |
| tree | 75c42b6e338515ade395c906d99104656cab779c /t/uni | |
| parent | 128e4113466e835078eb016709e5d23b86be3120 (diff) | |
| download | perl-ef9d5242d3ebebaa273eaaaf24138e38db8939b2.tar.gz | |
Skip various locale tests when locales are not available
It is possible to compile Perl without locales, and some platforms may
not have them available properly. These tests were failing under these
conditions. This commit uses the new infrastructure in loc_tools.pl to
centralize the knowledge of how to determine if locales are available.
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/fold.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/uni/fold.t b/t/uni/fold.t index deb47f7017..149573a460 100644 --- a/t/uni/fold.t +++ b/t/uni/fold.t @@ -446,7 +446,7 @@ SKIP: { utf8::upgrade($utf8); is(fc($latin1), fc($utf8), "fc() gives the same results for \\x{$_} in Latin-1 and UTF-8 under unicode_strings"); SKIP: { - skip 'No locale testing without d_setlocale', 2 if(!$Config{d_setlocale}); + skip 'Locales not available', 2 unless locales_enabled('LC_CTYPE'); use locale; is(fc($latin1), lc($latin1), "use locale; fc(qq{\\x{$_}}), lc(qq{\\x{$_}}) when qq{\\x{$_}} is in latin-1"); is(fc($utf8), lc($utf8), "use locale; fc(qq{\\x{$_}}), lc(qq{\\x{$_}}) when qq{\\x{$_}} is in latin-1"); |