4 if( $ENV{PERL_CORE} ) {
10 # Ensure that intermixed prints to STDOUT and tests come out in the
11 # right order (ie. no buffering problems).
13 use Test::More tests => 20;
14 my $T = Test::Builder->new;
20 $T->current_test($tnum);
21 print "ok $tnum - You're ok\n";