xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/has_plan.t (revision 0:68f95e015346) 
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->has_plan;
18};
19
20use Test::More tests => 2;
21
22is($unplanned, undef, 'no plan yet defined');
23is(Test::Builder->has_plan, 2, 'has fixed plan');
24