15759b3d2Safresh1#!/usr/bin/perl 25759b3d2Safresh1# HARNESS-NO-STREAM 35759b3d2Safresh1 4*256a93a4Safresh1use strict; 5*256a93a4Safresh1use warnings; 6*256a93a4Safresh1 75759b3d2Safresh1BEGIN { 85759b3d2Safresh1 if( $ENV{PERL_CORE} ) { 95759b3d2Safresh1 chdir 't'; 105759b3d2Safresh1 @INC = '../lib'; 115759b3d2Safresh1 } 125759b3d2Safresh1} 135759b3d2Safresh1 145759b3d2Safresh1# Ensure that intermixed prints to STDOUT and tests come out in the 155759b3d2Safresh1# right order (ie. no buffering problems). 165759b3d2Safresh1 175759b3d2Safresh1use Test::More tests => 20; 185759b3d2Safresh1my $T = Test::Builder->new; 195759b3d2Safresh1$T->no_ending(1); 205759b3d2Safresh1 215759b3d2Safresh1for my $num (1..10) { 22*256a93a4Safresh1 my $tnum = $num * 2; 235759b3d2Safresh1 pass("I'm ok"); 245759b3d2Safresh1 $T->current_test($tnum); 255759b3d2Safresh1 print "ok $tnum - You're ok\n"; 265759b3d2Safresh1} 27