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