diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-05 10:10:33 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-05 10:10:33 +0000 |
commit | 584420f022db57225e9644b9c6668ff9f567984a (patch) | |
tree | ad999faf594f41896ebbadd32b3511daf1be91e6 /t/run | |
parent | f58cd3869828b0993f2ad27e1061f23f4c1959bb (diff) | |
download | perl-584420f022db57225e9644b9c6668ff9f567984a.tar.gz |
Remove support for assertions and -A
p4raw-id: //depot/perl@31333
Diffstat (limited to 't/run')
-rwxr-xr-x | t/run/switch_A.t | 37 |
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'); - |