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