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