Commit | Line | Data |
---|---|---|
3c4bf434 | 1 | # $Id$ |
a9153838 | 2 | use Test::Builder; |
3 | ||
33459055 | 4 | BEGIN { |
a9153838 | 5 | if( $ENV{PERL_CORE} ) { |
6 | chdir 't'; | |
7 | @INC = '../lib'; | |
8 | } | |
33459055 | 9 | } |
10 | ||
33459055 | 11 | BEGIN { |
12 | my $t = Test::Builder->new; | |
13 | $t->no_ending(1); | |
14 | } | |
15 | ||
16 | use Test::More tests => 3; | |
17 | ||
18 | # Normally, Test::More would yell that we ran too few tests, but we | |
19 | # supressed the ending diagnostics. | |
20 | pass; | |
21 | print "ok 2\n"; | |
22 | print "ok 3\n"; |