155745691Smillert#!./perl -na 255745691Smillert 355745691SmillertBEGIN { 4*91f110e0Safresh1 chdir 't' if -d 't'; 5*91f110e0Safresh1 @INC = '../lib'; 6*91f110e0Safresh1 require './test.pl'; 755745691Smillert *ARGV = *DATA; 8*91f110e0Safresh1 plan(tests => 2); 955745691Smillert} 10*91f110e0Safresh1chomp; 11*91f110e0Safresh1is($F[1], 'ok', "testing split of string '$_'"); 1255745691Smillert 1355745691Smillert__DATA__ 1455745691Smillertnot ok 1555745691Smillertnot ok 3 16