1#!./perl -w 2 3# Tests for the command-line switches 4 5BEGIN { 6 chdir 't' if -d 't'; 7 @INC = '../lib'; 8 unless (find PerlIO::Layer 'perlio') { 9 print "1..0 # Skip: not perlio\n"; 10 exit 0; 11 } 12} 13 14BEGIN { require "./test.pl"; } 15 16plan(tests => 6); 17 18my $r; 19 20my $tmpfile = tempfile(); 21 22my $b = pack("C*", unpack("U0C*", pack("U",256))); 23 24$r = runperl( switches => [ '-CO', '-w' ], 25 prog => 'print chr(256)', 26 stderr => 1 ); 27like( $r, qr/^$b(?:\r?\n)?$/s, '-CO: no warning on UTF-8 output' ); 28 29SKIP: { 30 if (exists $ENV{PERL_UNICODE} && 31 ($ENV{PERL_UNICODE} eq "" || $ENV{PERL_UNICODE} =~ /[SO]/)) { 32 skip(qq[cannot test with PERL_UNICODE locale "" or /[SO]/], 1); 33 } 34 $r = runperl( switches => [ '-CI', '-w' ], 35 prog => 'print ord(<STDIN>)', 36 stderr => 1, 37 stdin => $b ); 38 like( $r, qr/^256(?:\r?\n)?$/s, '-CI: read in UTF-8 input' ); 39} 40 41$r = runperl( switches => [ '-CE', '-w' ], 42 prog => 'warn chr(256), qq(\n)', 43 stderr => 1 ); 44like( $r, qr/^$b(?:\r?\n)?$/s, '-CE: UTF-8 stderr' ); 45 46$r = runperl( switches => [ '-Co', '-w' ], 47 prog => "open(F, q(>$tmpfile)); print F chr(256); close F", 48 stderr => 1 ); 49like( $r, qr/^$/s, '-Co: auto-UTF-8 open for output' ); 50 51$r = runperl( switches => [ '-Ci', '-w' ], 52 prog => "open(F, q(<$tmpfile)); print ord(<F>); close F", 53 stderr => 1 ); 54like( $r, qr/^256(?:\r?\n)?$/s, '-Ci: auto-UTF-8 open for input' ); 55 56$r = runperl( switches => [ '-CA', '-w' ], 57 prog => 'print ord shift', 58 stderr => 1, 59 args => [ chr(256) ] ); 60like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' ); 61 62