1N/A#!/usr/bin/perl -w
1N/A
1N/ABEGIN {
1N/A if( $ENV{PERL_CORE} ) {
1N/A chdir 't';
1N/A @INC = ('../lib');
1N/A }
1N/A}
1N/A
1N/Ause strict;
1N/Ause Test::Builder;
1N/A
1N/Amy $unplanned;
1N/A
1N/ABEGIN {
1N/A $unplanned = 'oops';
1N/A $unplanned = Test::Builder->has_plan;
1N/A};
1N/A
1N/Ause Test::More tests => 2;
1N/A
1N/Ais($unplanned, undef, 'no plan yet defined');
1N/Ais(Test::Builder->has_plan, 2, 'has fixed plan');