3 # Tests for the command-line switches
8 unless (find PerlIO::Layer 'perlio') {
9 print "1..0 # Skip: not perlio\n";
21 END { unlink @tmpfiles }
23 $r = runperl( switches => [ '-CO', '-w' ],
24 prog => 'print chr(256)',
26 is( $r, "\xC4\x80", '-CO: no warning on UTF-8 output' );
28 $r = runperl( switches => [ '-CI', '-w' ],
29 prog => 'print ord(<STDIN>)',
32 is( $r, 256, '-CI: read in UTF-8 output' );
34 $r = runperl( switches => [ '-CE', '-w' ],
35 prog => 'warn chr(256), qq(\n)',
38 is( $r, "\xC4\x80", '-CE: UTF-8 stderr' );
40 $r = runperl( switches => [ '-Co', '-w' ],
41 prog => 'open(F, q(>out)); print F chr(256); close F',
43 is( $r, '', '-Co: auto-UTF-8 open for output' );
45 push @tmpfiles, "out";
47 $r = runperl( switches => [ '-Ci', '-w' ],
48 prog => 'open(F, q(<out)); print ord(<F>); close F',
50 is( $r, 256, '-Ci: auto-UTF-8 open for input' );
52 $r = runperl( switches => [ '-CA', '-w' ],
53 prog => 'print ord shift',
55 args => [ chr(256) ] );
56 is( $r, 256, '-CA: @ARGV' );