t/run/noswitch.t

   1 #!./perl
   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 pass("first test");
  12 is( scalar <>, "ok 2\n", "read from aliased DATA filehandle");
  13 pass("last test");
  14
  15 __DATA__
  16 ok 2