| Current Path : /proc/4039398/root/usr/share/doc/perl-Test-Simple/t/Legacy/Builder/ |
| Current File : //proc/4039398/root/usr/share/doc/perl-Test-Simple/t/Legacy/Builder/has_plan.t |
#!/usr/bin/perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib');
}
}
use strict;
use Test::Builder;
my $unplanned;
BEGIN {
$unplanned = 'oops';
$unplanned = Test::Builder->new->has_plan;
};
use Test::More tests => 2;
is($unplanned, undef, 'no plan yet defined');
is(Test::Builder->new->has_plan, 2, 'has fixed plan');