#!/usr/bin/perl
# HARNESS-NO-STREAM
use
strict;
use
warnings;
BEGIN {
if
(
$ENV
{PERL_CORE} ) {
chdir
't'
;
@INC
=
'../lib'
;
}
}
# Ensure that intermixed prints to STDOUT and tests come out in the
# right order (ie. no buffering problems).
my
$T
= Test::Builder->new;
$T
->no_ending(1);
for
my
$num
(1..10) {
my
$tnum
=
$num
* 2;
pass(
"I'm ok"
);
$T
->current_test(
$tnum
);
"ok $tnum - You're ok\n"
;
}