3 # What if there's a plan and done_testing but they don't match?
7 if( $ENV{PERL_CORE} ) {
9 @INC = ('../lib', 'lib');
12 unshift @INC, 't/lib';
17 use Test::Builder::NoOutput;
19 my $tb = Test::Builder::NoOutput->create;
22 # Normalize test output
23 local $ENV{HARNESS_ACTIVE};
25 $tb->plan( tests => 3 );
34 my $Test = Test::Builder->new;
35 $Test->plan( tests => 1 );
37 $Test->is_eq($tb->read, <<"END");
42 not ok 4 - planned to run 3 but done_testing() expects 2
43 # Failed test 'planned to run 3 but done_testing() expects 2'