t/run/switcha.t

   1 #!./perl -na
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require './test.pl';
   7     *ARGV = *DATA;
   8     plan(tests => 2);
   9 }
  10 chomp;
  11 is($F[1], 'ok', "testing split of string '$_'");
  12
  13 __DATA__
  14 not ok
  15 not ok 3