xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/Builder/has_plan.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
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