1#!/usr/bin/perl -w 2 3BEGIN { 4 if( $ENV{PERL_CORE} ) { 5 chdir 't'; 6 @INC = ('../lib'); 7 } 8} 9 10use strict; 11use Test::Builder; 12 13my $unplanned; 14 15BEGIN { 16 $unplanned = 'oops'; 17 $unplanned = Test::Builder->new->has_plan; 18}; 19 20use Test::More tests => 2; 21 22is($unplanned, undef, 'no plan yet defined'); 23is(Test::Builder->new->has_plan, 2, 'has fixed plan'); 24