t/run/switch_A.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     unshift @INC, '../lib';
   6     require './test.pl';
   7 }
   8
   9 BEGIN {
  10     plan(5);
  11 }
  12
  13 #1
  14 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
  15               'ok',
  16               { switches => ['-AHello'] }, '-AHello');
  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');
  32
  33 #5
  34 fresh_perl_is('sub cm : assertion { "ok" }; use assertions Hello; print cm()',
  35              'ok',
  36              { switches => ['-A'] }, '-A');