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

#!/usr/bin/perl -w

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

use Test::More tests => 6;

my $tb = Test::Builder->create;
$tb->level(0);

#line 19
ok !eval { $tb->plan(tests => undef) };
is($@, "Got an undefined number of tests at $0 line 19.\n");

#line 23
ok !eval { $tb->plan(tests => 0) };
is($@, "You said to run 0 tests at $0 line 23.\n");

#line 27
ok !eval { $tb->ok(1) };
is( $@, "You tried to run a test without a plan at $0 line 27.\n");
Commit	Line	Data
b7f9bbeb	1	#!/usr/bin/perl -w
b7f9bbeb	2
15db8fc4	3	BEGIN {
a9153838	4	if( $ENV{PERL_CORE} ) {
	5	chdir 't';
	6	@INC = ('../lib', 'lib');
	7	}
	8	else {
	9	unshift @INC, 't/lib';
	10	}
15db8fc4	11	}
15db8fc4	12
b7f9bbeb	13	use Test::More tests => 6;
4dd974da	14
b7f9bbeb	15	my $tb = Test::Builder->create;
b7f9bbeb	16	$tb->level(0);
4dd974da	17
b7f9bbeb	18	#line 19
	19	ok !eval { $tb->plan(tests => undef) };
	20	is($@, "Got an undefined number of tests at $0 line 19.\n");
4dd974da	21
b7f9bbeb	22	#line 23
	23	ok !eval { $tb->plan(tests => 0) };
	24	is($@, "You said to run 0 tests at $0 line 23.\n");
4dd974da	25
b7f9bbeb	26	#line 27
	27	ok !eval { $tb->ok(1) };
	28	is( $@, "You tried to run a test without a plan at $0 line 27.\n");