5 unshift @INC, '../lib';
6 require './test.pl'; # for which_perl() etc
14 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
16 { switches => ['-AHello'] }, '-A');
19 fresh_perl_is('sub cm : assertion { "ok" }; use assertions SDFJKS; print cm()',
21 { switches => ['-A.*'] }, '-A.*');
24 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Bye; print cm()',
26 { switches => ['-AB.e'] }, '-AB.e');
29 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
31 { switches => ['-ANoH..o'] }, '-ANoH..o');