Make the -A switch work without an assertion name.

by Salvador Fandiño.

p4raw-id: //depot/perl@18843

1 files changed, 6 insertions, 1 deletions

diff --git a/t/run/switch_A.t b/t/run/switch_A.t
index e042c1df95..5a71b409a5 100755
--- a/t/run/switch_A.t
+++ b/t/run/switch_A.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 BEGIN {
-    plan(4);
+    plan(5);
 }
 
 #1
@@ -29,3 +29,8 @@ fresh_perl_is('sub cm : assertion { "ok" }; use assertions Bye; print cm()',
 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
 	      '0',
 	      { switches => ['-ANoH..o'] }, '-ANoH..o');
+
+#5
+fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
+             'ok',
+             { switches => ['-A'] }, '-A');