sync a bunch of files with Test::Simple 0.86
[perl.git] / lib / Test / Simple / t / Builder / has_plan2.t
1 #!/usr/bin/perl -w
2 # $Id$
3
4 BEGIN {
5     if( $ENV{PERL_CORE} ) {
6         chdir 't';
7         @INC = '../lib';
8     }
9 }
10
11 use Test::More;
12
13 BEGIN {
14     if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) {
15         plan skip_all => "Won't work with t/TEST";
16     }
17 }
18
19 use strict;
20 use Test::Builder;
21
22 plan 'no_plan';
23 is(Test::Builder->new->has_plan, 'no_plan', 'has no_plan');