From bda1f0811edf9cb036f9dd6a26f0be556c87e377 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 30 Dec 2011 20:28:43 -0800 Subject: =?UTF-8?q?Test=20=E2=80=98Too=20late=20for=20-[Mm]=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- t/run/switches.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 't/run') diff --git a/t/run/switches.t b/t/run/switches.t index 419d580d4d..57ae32474d 100644 --- a/t/run/switches.t +++ b/t/run/switches.t @@ -11,7 +11,7 @@ BEGIN { BEGIN { require "./test.pl"; } -plan(tests => 110); +plan(tests => 112); use Config; @@ -225,6 +225,10 @@ SWTESTPM "-M- not allowed" ); } # disable TODO on VMS } +is runperl(stderr => 1, prog => '#!perl -m'), + qq 'Too late for "-m" option at -e line 1.\n', '#!perl -m'; +is runperl(stderr => 1, prog => '#!perl -M'), + qq 'Too late for "-M" option at -e line 1.\n', '#!perl -M'; # Tests for -V -- cgit v1.2.1