xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/Builder/has_plan.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
1*5759b3d2Safresh1#!/usr/bin/perl -w
2*5759b3d2Safresh1
3*5759b3d2Safresh1BEGIN {
4*5759b3d2Safresh1    if( $ENV{PERL_CORE} ) {
5*5759b3d2Safresh1        chdir 't';
6*5759b3d2Safresh1        @INC = ('../lib');
7*5759b3d2Safresh1    }
8*5759b3d2Safresh1}
9*5759b3d2Safresh1
10*5759b3d2Safresh1use strict;
11*5759b3d2Safresh1use Test::Builder;
12*5759b3d2Safresh1
13*5759b3d2Safresh1my $unplanned;
14*5759b3d2Safresh1
15*5759b3d2Safresh1BEGIN {
16*5759b3d2Safresh1	$unplanned = 'oops';
17*5759b3d2Safresh1	$unplanned = Test::Builder->new->has_plan;
18*5759b3d2Safresh1};
19*5759b3d2Safresh1
20*5759b3d2Safresh1use Test::More tests => 2;
21*5759b3d2Safresh1
22*5759b3d2Safresh1is($unplanned, undef, 'no plan yet defined');
23*5759b3d2Safresh1is(Test::Builder->new->has_plan, 2, 'has fixed plan');
24