1BEGIN { 2 if( $ENV{PERL_CORE} ) { 3 chdir 't'; 4 @INC = '../lib'; 5 } 6} 7 8 9print "1..1\n"; 10 11unless (eval 'require Test::Harness') { 12 print "not ok 1\n"; 13} else { 14 print "ok 1\n"; 15} 16