t/run/switchn.t

   1 #!./perl -n
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require './test.pl';
   7     *ARGV = *DATA;
   8     plan(tests => 3);
   9 }
  10
  11 END {
  12     pass("Final test");
  13 }
  14
  15 chomp;
  16 is("ok ".$., $_, "Checking line $.");
  17
  18 s/^/not /;
  19
  20 __DATA__
  21 ok 1
  22 ok 2