14 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
16 { switches => ['-A=Hello'] }, '-A=Hello');
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 => ['-A=B.e'] }, '-A=B.e');
29 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
31 { switches => ['-A=NoH..o'] }, '-A=NoH..o');
34 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
36 { switches => ['-A'] }, '-A');