Debian lenny version packages
[pkg-perl] / deb-src / libtest-simple-perl / libtest-simple-perl-0.80 / t / no_ending.t
1 use Test::Builder;
2
3 BEGIN {
4     if( $ENV{PERL_CORE} ) {
5         chdir 't';
6         @INC = '../lib';
7     }
8 }
9
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";