Commit | Line | Data |
---|---|---|
60ffb308 | 1 | #!/usr/bin/perl -w |
2 | ||
3 | BEGIN { | |
4 | if( $ENV{PERL_CORE} ) { | |
5 | chdir 't'; | |
6 | @INC = ('../lib'); | |
7 | } | |
8 | } | |
9 | ||
10 | use strict; | |
11 | use Test::Builder; | |
12 | ||
13 | my $unplanned; | |
14 | ||
15 | BEGIN { | |
16 | $unplanned = 'oops'; | |
5143c659 | 17 | $unplanned = Test::Builder->new->has_plan; |
60ffb308 | 18 | }; |
19 | ||
20 | use Test::More tests => 2; | |
21 | ||
22 | is($unplanned, undef, 'no plan yet defined'); | |
5143c659 | 23 | is(Test::Builder->new->has_plan, 2, 'has fixed plan'); |