Re: Did the assertion patch/feature submission get overlooked?

Message-ID: <3E51725D.5060303@yahoo.com>

p4raw-id: //depot/perl@18739

1 files changed, 31 insertions, 0 deletions

diff --git a/t/run/switchA.t b/t/run/switchA.t
new file mode 100755
index 0000000000..e042c1df95
--- /dev/null
+++ b/t/run/switchA.t
@@ -0,0 +1,31 @@
+#!./perl
+
+BEGIN {
+    chdir 't' if -d 't';
+    unshift @INC, '../lib';
+    require './test.pl';	# for which_perl() etc
+}
+
+BEGIN {
+    plan(4);
+}
+
+#1
+fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
+	      'ok',
+	      { switches => ['-AHello'] }, '-A');
+
+#2
+fresh_perl_is('sub cm : assertion { "ok" }; use assertions SDFJKS; print cm()',
+	      'ok',
+	      { switches => ['-A.*'] }, '-A.*');
+
+#3
+fresh_perl_is('sub cm : assertion { "ok" }; use assertions Bye; print cm()',
+	      'ok',
+	      { switches => ['-AB.e'] }, '-AB.e');
+
+#4
+fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
+	      '0',
+	      { switches => ['-ANoH..o'] }, '-ANoH..o');