diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-02 15:39:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-02 15:39:06 +0000 |
| commit | 81ff9b36babbaa3576696f80427c25a4b7bfa9dd (patch) | |
| tree | 201e5939e9cfdc9898f1f2227ca10b3de62dbfa2 /t | |
| parent | 4c79ee7a1e7564ef83d0ac25d6677fdebb3ec7aa (diff) | |
| download | perl-81ff9b36babbaa3576696f80427c25a4b7bfa9dd.tar.gz | |
Narrow down the -C test skippage.
p4raw-id: //depot/perl@18802
Diffstat (limited to 't')
| -rw-r--r-- | t/run/switchC.t | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/t/run/switchC.t b/t/run/switchC.t index ba17cb91c1..c3cc4033a7 100644 --- a/t/run/switchC.t +++ b/t/run/switchC.t @@ -26,14 +26,13 @@ $r = runperl( switches => [ '-CO', '-w' ], is( $r, "\xC4\x80", '-CO: no warning on UTF-8 output' ); SKIP: { - for my $l (qw(LC_ALL LC_CTYPE LANG)) { - skip("cannot easily test under UTF-8 locale", 1) - if $ENV{$l} =~ /utf-?8/i; + if (exists $ENV{PERL_UNICODE} && + ($ENV{PERL_UNICODE} eq "" || $ENV{PERL_UNICODE} =~ /[SO]/)) { + skip(qq[cannot test with PERL_UNICODE locale "" or /[SO]/], 1); } $r = runperl( switches => [ '-CI', '-w' ], prog => 'print ord(<STDIN>)', stderr => 1, - verbose => 1, stdin => "\xC4\x80" ); is( $r, 256, '-CI: read in UTF-8 input' ); } |