diff options
| author | Salvador Fandiño <sfandino@yahoo.com> | 2005-06-13 17:48:01 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-14 08:52:46 +0000 |
| commit | aefc56c5a86a8918fc9d52065e8cf4df301d4ee4 (patch) | |
| tree | 540d157b633c8c7ef6ef0a17ae1e84be71803028 /t/run | |
| parent | 5eb567df529229d30d1a4d7c913a67cbd444dacb (diff) | |
| download | perl-aefc56c5a86a8918fc9d52065e8cf4df301d4ee4.tar.gz | |
better assertion support
Message-ID: <20050613154719.29295.qmail@lists.develooper.com>
p4raw-id: //depot/perl@24832
Diffstat (limited to 't/run')
| -rwxr-xr-x | t/run/switch_A.t | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/t/run/switch_A.t b/t/run/switch_A.t index d79f430df0..5111b9d6ef 100755 --- a/t/run/switch_A.t +++ b/t/run/switch_A.t @@ -13,24 +13,25 @@ BEGIN { #1 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()', 'ok', - { switches => ['-AHello'] }, '-AHello'); + { switches => ['-A=Hello'] }, '-A=Hello'); #2 fresh_perl_is('sub cm : assertion { "ok" }; use assertions SDFJKS; print cm()', 'ok', - { switches => ['-A.*'] }, '-A.*'); + { switches => ['-A=.*'] }, '-A=.*'); #3 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Bye; print cm()', 'ok', - { switches => ['-AB.e'] }, '-AB.e'); + { switches => ['-A=B.e'] }, '-A=B.e'); #4 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()', '0', - { switches => ['-ANoH..o'] }, '-ANoH..o'); + { switches => ['-A=NoH..o'] }, '-A=NoH..o'); #5 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()', 'ok', { switches => ['-A'] }, '-A'); + |