$DOSISH = 1 if !$DOSISH and $^O =~ /^uwin/;
my $NONSTDIO = exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio' ? 1 : 0;
my $FASTSTDIO = $Config{d_faststdio} && $Config{usefaststdio} ? 1 : 0;
+my $UNICODE_STDIN;
+if (${^UNICODE} & 1) {
+ if (${^UNICODE} & 64) {
+ # Conditional on the locale
+ $UNICODE_STDIN = ${^UTF8LOCALE};
+ } else {
+ # Unconditional
+ $UNICODE_STDIN = 1;
+ }
+}
+my $NTEST = 43 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 5 : 0)
+ + $UNICODE_STDIN;
-my $NTEST = 43 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 5 : 0);
+sub PerlIO::F_UTF8 () { 0x00008000 } # from perliol.h
plan tests => $NTEST;
print <<__EOH__;
-# PERLIO = $PERLIO
-# DOSISH = $DOSISH
-# NONSTDIO = $NONSTDIO
-# FASTSTDIO = $FASTSTDIO
+# PERLIO = $PERLIO
+# DOSISH = $DOSISH
+# NONSTDIO = $NONSTDIO
+# FASTSTDIO = $FASTSTDIO
+# UNICODE = ${^UNICODE}
+# UTF8LOCALE = ${^UTF8LOCALE}
+# UNICODE_STDIN = $UNICODE_STDIN
__EOH__
SKIP: {
+ # FIXME - more of these could be tested without Encode or full perl
skip("This perl does not have Encode", $NTEST)
unless " $Config{extensions} " =~ / Encode /;
+ skip("miniperl does not have Encode", $NTEST) if $ENV{PERL_CORE_MINITEST};
sub check {
my ($result, $expected, $id) = @_;
@$expected = grep { $_ ne 'crlf' } @$expected;
}
my $n = scalar @$expected;
- is($n, scalar @$expected, "$id - layers == $n");
+ is(scalar @$result, $n, "$id - layers == $n");
for (my $i = 0; $i < $n; $i++) {
my $j = $expected->[$i];
if (ref $j eq 'CODE') {
}
check([ PerlIO::get_layers(STDIN) ],
- [ "stdio" ],
+ $UNICODE_STDIN ? [ "stdio", "utf8" ] : [ "stdio" ],
"STDIN");
open(F, ">:crlf", "afile");