3 # Test what happens when no plan is delcared and done_testing() is not seen
7 if( $ENV{PERL_CORE} ) {
9 @INC = ('../lib', 'lib');
12 unshift @INC, 't/lib';
17 use Test::Builder::NoOutput;
19 my $Test = Test::Builder->new;
21 $Test->plan( tests => 1 );
23 my $tb = Test::Builder::NoOutput->create;
27 $tb->ok(1, "just a test");
28 $tb->ok(1, " and another");
32 $Test->is_eq($tb->read, <<'END', "proper behavior when no plan is seen");
35 # Tests were run but no plan was declared and done_testing() was not seen.