[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / no_header.t

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = '../lib';
    }
}

use Test::Builder;

# STDOUT must be unbuffered else our prints might come out after
# Test::More's.
$| = 1;

BEGIN {
    Test::Builder->new->no_header(1);
}

use Test::More tests => 1;

print "1..1\n";
pass;
Commit	Line	Data
33459055	1	BEGIN {
a9153838	2	if( $ENV{PERL_CORE} ) {
	3	chdir 't';
	4	@INC = '../lib';
	5	}
33459055	6	}
33459055	7
33459055	8	use Test::Builder;
33459055	9
4bd4e70a	10	# STDOUT must be unbuffered else our prints might come out after
	11	# Test::More's.
	12	$\| = 1;
	13
33459055	14	BEGIN {
	15	Test::Builder->new->no_header(1);
	16	}
	17
	18	use Test::More tests => 1;
	19
	20	print "1..1\n";
	21	pass;