1N/A chdir 't' if -d 't'; 1N/A print "1..0 # Skip: not perlio\n"; 1N/A print "1..0 # miniperl cannot load Encode\n"; 1N/A # Makes testing easier. 1N/A # We are not prepared for anything else. 1N/A print "1..0 # PERLIO='$ENV{PERLIO}' unknown\n"; 1N/A# NONSTDIO = $NONSTDIO 1N/A# FASTSTDIO = $FASTSTDIO 1N/A # FIXME - more of these could be tested without Encode or full perl 1N/A # An interesting dance follows where we try to make the following 1N/A # IO layer stack setups to compare equal: 1N/A # PERLIO UNIX-like DOS-like 1N/A # unset / "" unix perlio / stdio [1] unix crlf 1N/A # stdio unix perlio / stdio [1] stdio 1N/A # perlio unix perlio unix perlio 1N/A # mmap unix mmap unix mmap 1N/A # [1] "stdio" if Configure found out how to do "fast stdio" (depends 1N/A # on the stdio implementation) and in Perl 5.8, otherwise "unix perlio" 1N/A # Get rid of "unix". 1N/A # Change expectations. 1N/A # 5 tests potentially skipped because 1N/A # DOSISH systems already have a CRLF layer 1N/A # which will make new ones not stick. 1N/A for (my $i = 0; $i < $n; $i++) { 1N/A binmode(F, ":encoding(sjis)"); # "sjis" will be canonized to "shiftjis" 1N/A binmode(F, ":raw :encoding(latin1)"); # "latin1" will be canonized 1N/A # 7 tests potentially skipped. 1N/A # Get rid of the args and the flags. 1N/A ":raw:encoding(latin1)");