[patch] more about embed.fnc in perlguts

[p5sagit/p5-mst-13.2.git] / t / run / switch_A.t

diff --git a/t/run/switch_A.t b/t/run/switch_A.t
index d79f430..5111b9d 100755 (executable)
--- 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');
+