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";
26 if( $ENV{PERL_CORE} ) {
32 # Ensure that intermixed prints to STDOUT and tests come out in the
33 # right order (ie. no buffering problems).
35 use Test::More tests => 20;
36 my $T = Test::Builder->new;
42 $T->current_test($tnum);
43 print "ok $tnum - You're ok\n";