diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-17 21:10:06 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-17 21:10:06 +0000 |
| commit | 702815ca71820e02fb479da23518a6420e31af8b (patch) | |
| tree | 6421e196c38542c8cbd034eaa7a486b0ed8d0f04 /t | |
| parent | 15bb75ac03814e0ff7197c6bddcd5eab334d5864 (diff) | |
| download | perl-702815ca71820e02fb479da23518a6420e31af8b.tar.gz | |
Some docs for the assertions.
p4raw-id: //depot/perl@19808
Diffstat (limited to 't')
| -rwxr-xr-x | t/run/switch_A.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/run/switch_A.t b/t/run/switch_A.t index 5a71b409a5..4204e64023 100755 --- a/t/run/switch_A.t +++ b/t/run/switch_A.t @@ -3,7 +3,7 @@ BEGIN { chdir 't' if -d 't'; unshift @INC, '../lib'; - require './test.pl'; # for which_perl() etc + require './test.pl'; } BEGIN { @@ -13,7 +13,7 @@ BEGIN { #1 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()', 'ok', - { switches => ['-AHello'] }, '-A'); + { switches => ['-AHello'] }, '-AHello'); #2 fresh_perl_is('sub cm : assertion { "ok" }; use assertions SDFJKS; print cm()', |