1#!/usr/bin/perl 2 3BEGIN { 4 if( $ENV{PERL_CORE} ) { 5 chdir 't'; 6 @INC = '../lib'; 7 } 8} 9 10# Ensure that intermixed prints to STDOUT and tests come out in the 11# right order (ie. no buffering problems). 12 13use Test::More tests => 20; 14my $T = Test::Builder->new; 15$T->no_ending(1); 16 17for my $num (1..10) { 18 $tnum = $num * 2; 19 pass("I'm ok"); 20 $T->current_test($tnum); 21 print "ok $tnum - You're ok\n"; 22} 23