diff options
| author | Karl Williamson <khw@cpan.org> | 2016-02-22 11:27:50 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-03-03 20:55:18 -0700 |
| commit | dc51aebecbd0558a2a7eadb41abd9f445b8c65a5 (patch) | |
| tree | 6c30c84ff2885b79e9acae9f069741b3ac4d0466 /t | |
| parent | 6e64da7576feba02a3805f38b963b553b862cbd2 (diff) | |
| download | perl-dc51aebecbd0558a2a7eadb41abd9f445b8c65a5.tar.gz | |
TODO or skip certain failing locale tests on cygwin
This is a known problem which cygwin has fixed in 2.5
Tony Cook tested this and found and fixed several bugs in it before this
final version was made.
Diffstat (limited to 't')
| -rw-r--r-- | t/run/locale.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/run/locale.t b/t/run/locale.t index eb1202b68d..09e76f8247 100644 --- a/t/run/locale.t +++ b/t/run/locale.t @@ -47,7 +47,13 @@ SKIP: { isnt(setlocale(LC_ALL), "C", "retrieving current non-C LC_ALL doesn't give 'C'"); } -fresh_perl_is("for (qw(@locales)) {\n" . <<'EOF', +# Skip this locale on these cywgwin versions as the returned radix character +# length is wrong +my @test_numeric_locales = ($^O ne 'cygwin' || version->new(($Config{'osvers'} =~ /^(\d+(?:\.\d+)+)/)[0]) gt v2.4.1) + ? @locales + : grep { $_ !~ m/ps_AF/i } @locales; + +fresh_perl_is("for (qw(@test_numeric_locales)) {\n" . <<'EOF', use POSIX qw(locale_h); use locale; setlocale(LC_NUMERIC, "$_") or next; |