1use Test::Builder; 2 3BEGIN { 4 if( $ENV{PERL_CORE} ) { 5 chdir 't'; 6 @INC = '../lib'; 7 } 8} 9 10BEGIN { 11 my $t = Test::Builder->new; 12 $t->no_ending(1); 13} 14 15use Test::More tests => 3; 16 17# Normally, Test::More would yell that we ran too few tests, but we 18# supressed the ending diagnostics. 19pass; 20print "ok 2\n"; 21print "ok 3\n"; 22