print "1..0 # Skip: not perlio\n";
exit 0;
}
+ if ($ENV{PERL_CORE_MINITEST}) {
+ print "1..0 # Skip : -C and \$ENV{PERL_UNICODE} are disabled on miniperl\n";
+ exit 0;
+ }
+
}
BEGIN { require "./test.pl"; }
-plan(tests => 7);
+plan(tests => 9);
my $r;
like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' );
$r = runperl( switches => [ '-CS', '-w' ],
- prog => "#!perl -CS\nprint chr(256)",
+ progs => [ '#!perl -CS', 'print chr(256)'],
stderr => 1, );
like( $r, qr/^$b(?:\r?\n)?$/s, '#!perl -C' );
+
+$r = runperl( switches => [ '-CA', '-w' ],
+ progs => [ '#!perl -CS', 'print chr(256)' ],
+ stderr => 1, );
+like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
+ '#!perl -C with different -C on command line' );
+
+$r = runperl( switches => [ '-w' ],
+ progs => [ '#!perl -CS', 'print chr(256)' ],
+ stderr => 1, );
+like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
+ '#!perl -C but not command line' );