From 74b2b4b1788882713af5484605612fc6ec67405d Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 26 Jul 2009 11:30:32 +0100
Subject: [PATCH] Add tests for where -C differs between then #! and command
 lines.

---
 t/run/switchC.t | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/t/run/switchC.t b/t/run/switchC.t
index 9e52ad3..38e79a1 100644
--- a/t/run/switchC.t
+++ b/t/run/switchC.t
@@ -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' );
-- 
2.7.4