xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/Builder/no_header.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
1*5759b3d2Safresh1BEGIN {
2*5759b3d2Safresh1    if( $ENV{PERL_CORE} ) {
3*5759b3d2Safresh1        chdir 't';
4*5759b3d2Safresh1        @INC = '../lib';
5*5759b3d2Safresh1    }
6*5759b3d2Safresh1}
7*5759b3d2Safresh1
8*5759b3d2Safresh1use Test::Builder;
9*5759b3d2Safresh1
10*5759b3d2Safresh1# STDOUT must be unbuffered else our prints might come out after
11*5759b3d2Safresh1# Test::More's.
12*5759b3d2Safresh1$| = 1;
13*5759b3d2Safresh1
14*5759b3d2Safresh1BEGIN {
15*5759b3d2Safresh1    Test::Builder->new->no_header(1);
16*5759b3d2Safresh1}
17*5759b3d2Safresh1
18*5759b3d2Safresh1use Test::More tests => 1;
19*5759b3d2Safresh1
20*5759b3d2Safresh1print "1..1\n";
21*5759b3d2Safresh1pass;
22