4 if( $ENV{PERL_CORE} ) {
6 @INC = ('../lib', 'lib');
13 use Test::More tests => 6;
15 my $tb = Test::Builder->create;
19 ok !eval { $tb->plan(tests => undef) };
20 is($@, "Got an undefined number of tests at $0 line 19.\n");
23 ok !eval { $tb->plan(tests => 0) };
24 is($@, "You said to run 0 tests at $0 line 23.\n");
27 ok !eval { $tb->ok(1) };
28 is( $@, "You tried to run a test without a plan at $0 line 27.\n");