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