1N/A chdir 't' if -d 't'; 1N/A no warnings; # Need global -w flag for later tests, but don't want this 1N/A print "1..0 # Skip: not perlio\n"; 1N/A print "1..0 # Skip: not Encode\n"; 1N/A # alpha beta gamma in ISO 8859-7 1N/A if (ord('A') == 193) { # EBCDIC 1N/A # alpha beta gamma in UTF-EBCDIC Unicode (0x3b1 0x3b2 0x3b3) 1N/A # alpha beta gamma in UTF-8 Unicode (0x3b1 0x3b2 0x3b3) 1N/A print "not ok 9 # Open should fail\n"; 1N/A print "not ok 10 # warning is undef\n"; 1N/A print "not ok 11 # open failed: $!\n"; 1N/A# Check there is no Use of uninitialized value in concatenation (.) warning 1N/A# due to the way @latin2iso_num was used to make aliases. 1N/A print "not ok 12 # Open should fail\n"; 1N/A print "not ok 13 # warning is undef\n"; 1N/A print "not ok 13 # warning is: \n"; 1N/A# Create a string of chars that are 3 bytes in UTF-8 1N/A# Write them to a file 1N/A# Read file back as UTF-8