This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Document that the -Ci, -Co, and -CD options have file scope
[perl5.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     if ($ENV{PERL_CORE_MINITEST}) {
13         print "1..0 # Skip : -C and \$ENV{PERL_UNICODE} are disabled on miniperl\n";
14         exit 0;
15     }
16         
17 }
18
19 BEGIN { require "./test.pl"; }
20
21 plan(tests => 13);
22
23 my $r;
24
25 my $tmpfile = tempfile();
26 my $scriptfile = tempfile();
27
28 my $b = pack("C*", unpack("U0C*", pack("U",256)));
29
30 $r = runperl( switches => [ '-CO', '-w' ],
31               prog     => 'print chr(256)',
32               stderr   => 1 );
33 like( $r, qr/^$b(?:\r?\n)?$/s, '-CO: no warning on UTF-8 output' );
34
35 SKIP: {
36     if (exists $ENV{PERL_UNICODE} &&
37         ($ENV{PERL_UNICODE} eq "" || $ENV{PERL_UNICODE} =~ /[SO]/)) {
38         skip(qq[cannot test with PERL_UNICODE locale "" or /[SO]/], 1);
39     }
40     $r = runperl( switches => [ '-CI', '-w' ],
41                   prog     => 'print ord(<STDIN>)',
42                   stderr   => 1,
43                   stdin    => $b );
44     like( $r, qr/^256(?:\r?\n)?$/s, '-CI: read in UTF-8 input' );
45 }
46
47 $r = runperl( switches => [ '-CE', '-w' ],
48               prog     => 'warn chr(256), qq(\n)',
49               stderr   => 1 );
50 like( $r, qr/^$b(?:\r?\n)?$/s, '-CE: UTF-8 stderr' );
51
52 $r = runperl( switches => [ '-Co', '-w' ],
53               prog     => "open(F, q(>$tmpfile)); print F chr(256); close F",
54               stderr   => 1 );
55 like( $r, qr/^$/s, '-Co: auto-UTF-8 open for output' );
56
57 $r = runperl( switches => [ '-Ci', '-w' ],
58               prog     => "open(F, q(<$tmpfile)); print ord(<F>); close F",
59               stderr   => 1 );
60 like( $r, qr/^256(?:\r?\n)?$/s, '-Ci: auto-UTF-8 open for input' );
61
62 open(S, ">$scriptfile") or die("open $scriptfile: $!");
63 print S "open(F, q(<$tmpfile)); print ord(<F>); close F";
64 close S;
65
66 $r = runperl( switches => [ '-Ci', '-w' ],
67               progfile => $scriptfile,
68               stderr   => 1 );
69 like( $r, qr/^256(?:\r?\n)?$/s, '-Ci: auto-UTF-8 open for input affects the current file' );
70
71 $r = runperl( switches => [ '-Ci', '-w' ],
72               prog     => "do q($scriptfile)",
73               stderr   => 1 );
74 unlike( $r, qr/^256(?:\r?\n)?$/s, '-Ci: auto-UTF-8 open for input has file scope' );
75
76 $r = runperl( switches => [ '-CA', '-w' ],
77               prog     => 'print ord shift',
78               stderr   => 1,
79               args     => [ chr(256) ] );
80 like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' );
81
82 $r = runperl( switches => [ '-CS', '-w' ],
83               progs    => [ '#!perl -CS', 'print chr(256)'],
84               stderr   => 1, );
85 like( $r, qr/^$b(?:\r?\n)?$/s, '#!perl -C' );
86
87 $r = runperl( switches => [ '-CS' ],
88               progs    => [ '#!perl -CS -w', 'print chr(256), !!$^W'],
89               stderr   => 1, );
90 like( $r, qr/^${b}1(?:\r?\n)?$/s, '#!perl -C followed by another switch' );
91
92 $r = runperl( switches => [ '-CS' ],
93               progs    => [ '#!perl -C7 -w', 'print chr(256), !!$^W'],
94               stderr   => 1, );
95 like(
96   $r, qr/^${b}1(?:\r?\n)?$/s,
97  '#!perl -C<num> followed by another switch'
98 );
99
100 $r = runperl( switches => [ '-CA', '-w' ],
101               progs    => [ '#!perl -CS', 'print chr(256)' ],
102               stderr   => 1, );
103 like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
104       '#!perl -C with different -C on command line' );
105
106 $r = runperl( switches => [ '-w' ],
107               progs    => [ '#!perl -CS', 'print chr(256)' ],
108               stderr   => 1, );
109 like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
110       '#!perl -C but not command line' );