This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/run/locale.t: Skip environment test on Win32
authorKarl Williamson <khw@cpan.org>
Mon, 4 Aug 2014 18:57:43 +0000 (12:57 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 5 Aug 2014 16:26:30 +0000 (10:26 -0600)
This test is to make sure that without environment overrides, that the
decimal point character is a dot.  However in Windows machines, the
default locale can be set via administration regardless of environment
overrides, so this test is invalid on that platform.

Spotted by Steve Hay.

t/run/locale.t

index 47bd1a3..6c07d82 100644 (file)
@@ -52,7 +52,9 @@ fresh_perl_is("for (qw(@locales)) {\n" . <<'EOF',
 EOF
     "", {}, "no locales where LC_NUMERIC breaks");
 
-{
+SKIP: {
+    skip("Windows has a default without environment setting", 1 )
+                                                            if $^O eq 'MSWin32';
     local $ENV{LC_NUMERIC}; # So not taken as a default
     local $ENV{LC_ALL}; # so it never overrides LC_NUMERIC
     local $ENV{LANG};   # So not taken as a default