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

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