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

#!/usr/bin/perl -w
# $Id$

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

use Test::More;

BEGIN {
    if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) {
        plan skip_all => "Won't work with t/TEST";
    }
}

use strict;
use Test::Builder;

plan 'no_plan';
is(Test::Builder->new->has_plan, 'no_plan', 'has no_plan');
Commit	Line	Data
60ffb308	1	#!/usr/bin/perl -w
3c4bf434	2	# $Id$
60ffb308	3
	4	BEGIN {
	5	if( $ENV{PERL_CORE} ) {
	6	chdir 't';
	7	@INC = '../lib';
	8	}
	9	}
	10
	11	use Test::More;
	12
	13	BEGIN {
	14	if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) {
	15	plan skip_all => "Won't work with t/TEST";
	16	}
	17	}
	18
60ffb308	19	use strict;
	20	use Test::Builder;
	21
	22	plan 'no_plan';
5143c659	23	is(Test::Builder->new->has_plan, 'no_plan', 'has no_plan');