t/run/switchp.t

   1 #!./perl -p
   2
   3 # This test file does not use test.pl because of the involved way in which it
   4 # generates its TAP output.
   5
   6 BEGIN {
   7     print "1..3\n";
   8     *ARGV = *DATA;
   9 }
  10
  11 END {
  12     print "ok 3 - -p switch tested\n";
  13 }
  14
  15 s/^not //;
  16
  17 __DATA__
  18 not ok 1 - -p switch first iteration
  19 not ok 2 - -p switch second iteration