38e79a1a824803fedfbb3e616c21e2fe087d8a76
[perl.git] / t / run / switchC.t
1 #!./perl -w
2
3 # Tests for the command-line switches
4
5 BEGIN {
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
14 BEGIN { require "./test.pl"; }
15
16 plan(tests => 9);
17
18 my $r;
19
20 my $tmpfile = tempfile();
21
22 my $b = pack("C*", unpack("U0C*", pack("U",256)));
23
24 $r = runperl( switches => [ '-CO', '-w' ],
25               prog     => 'print chr(256)',
26               stderr   => 1 );
27 like( $r, qr/^$b(?:\r?\n)?$/s, '-CO: no warning on UTF-8 output' );
28
29 SKIP: {
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 );
44 like( $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 );
49 like( $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 );
54 like( $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) ] );
60 like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' );
61
62 $r = runperl( switches => [ '-CS', '-w' ],
63               prog     => "#!perl -CS\nprint chr(256)",
64               stderr   => 1, );
65 like( $r, qr/^$b(?:\r?\n)?$/s, '#!perl -C' );
66
67 $r = runperl( switches => [ '-CA', '-w' ],
68               prog     => "#!perl -CS\nprint chr(256)",
69               stderr   => 1, );
70 like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
71       '#!perl -C with different -C on command line' );
72
73 $r = runperl( switches => [ '-w' ],
74               prog     => "#!perl -CS\nprint chr(256)",
75               stderr   => 1, );
76 like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
77       '#!perl -C but not command line' );