Commit | Line | Data |
---|---|---|
cb8340be SF |
1 | #!./perl |
2 | ||
3 | BEGIN { | |
4 | chdir 't' if -d 't'; | |
5 | unshift @INC, '../lib'; | |
702815ca | 6 | require './test.pl'; |
cb8340be SF |
7 | } |
8 | ||
9 | BEGIN { | |
930366bd | 10 | plan(5); |
cb8340be SF |
11 | } |
12 | ||
13 | #1 | |
14 | fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()', | |
15 | 'ok', | |
702815ca | 16 | { switches => ['-AHello'] }, '-AHello'); |
cb8340be SF |
17 | |
18 | #2 | |
19 | fresh_perl_is('sub cm : assertion { "ok" }; use assertions SDFJKS; print cm()', | |
20 | 'ok', | |
21 | { switches => ['-A.*'] }, '-A.*'); | |
22 | ||
23 | #3 | |
24 | fresh_perl_is('sub cm : assertion { "ok" }; use assertions Bye; print cm()', | |
25 | 'ok', | |
26 | { switches => ['-AB.e'] }, '-AB.e'); | |
27 | ||
28 | #4 | |
29 | fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()', | |
30 | '0', | |
31 | { switches => ['-ANoH..o'] }, '-ANoH..o'); | |
930366bd RGS |
32 | |
33 | #5 | |
34 | fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()', | |
35 | 'ok', | |
36 | { switches => ['-A'] }, '-A'); |