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