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