Commit | Line | Data |
---|---|---|
a9153838 | 1 | #!/usr/bin/perl |
2 | ||
3 | BEGIN { | |
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 | ||
13 | use Test::More tests => 20; | |
14 | my $T = Test::Builder->new; | |
15 | $T->no_ending(1); | |
16 | ||
17 | for 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 | } |