t/run/switchF.t

   1 #!./perl -anFx+
   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 my $index = $F[-1];
  11 chomp $index;
  12 is($index, $., "line $.");
  13
  14 __DATA__
  15 okx1
  16 okx3xx2