Add tests for where -C differs between then #! and command lines.
Nicholas Clark [Sun, 26 Jul 2009 10:30:32 +0000 (11:30 +0100)]
t/run/switchC.t

index 9e52ad3..38e79a1 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
 
 BEGIN { require "./test.pl"; }
 
-plan(tests => 7);
+plan(tests => 9);
 
 my $r;
 
@@ -63,3 +63,15 @@ $r = runperl( switches => [ '-CS', '-w' ],
              prog     => "#!perl -CS\nprint chr(256)",
               stderr   => 1, );
 like( $r, qr/^$b(?:\r?\n)?$/s, '#!perl -C' );
+
+$r = runperl( switches => [ '-CA', '-w' ],
+             prog     => "#!perl -CS\nprint 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' ],
+             prog     => "#!perl -CS\nprint chr(256)",
+              stderr   => 1, );
+like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
+      '#!perl -C but not command line' );