summaryrefslogtreecommitdiff
path: root/t/run
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-06-05 10:10:33 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-06-05 10:10:33 +0000
commit584420f022db57225e9644b9c6668ff9f567984a (patch)
treead999faf594f41896ebbadd32b3511daf1be91e6 /t/run
parentf58cd3869828b0993f2ad27e1061f23f4c1959bb (diff)
downloadperl-584420f022db57225e9644b9c6668ff9f567984a.tar.gz
Remove support for assertions and -A
p4raw-id: //depot/perl@31333
Diffstat (limited to 't/run')
-rwxr-xr-xt/run/switch_A.t37
1 files changed, 0 insertions, 37 deletions
diff --git a/t/run/switch_A.t b/t/run/switch_A.t
deleted file mode 100755
index 5111b9d6ef..0000000000
--- a/t/run/switch_A.t
+++ /dev/null
@@ -1,37 +0,0 @@
-#!./perl
-
-BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
- require './test.pl';
-}
-
-BEGIN {
- plan(5);
-}
-
-#1
-fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
- 'ok',
- { switches => ['-A=Hello'] }, '-A=Hello');
-
-#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 => ['-A=B.e'] }, '-A=B.e');
-
-#4
-fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
- '0',
- { switches => ['-A=NoH..o'] }, '-A=NoH..o');
-
-#5
-fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
- 'ok',
- { switches => ['-A'] }, '-A');
-