| Path : /proc/2/root/proc/self/root/proc/2/cwd/usr/share/doc/perl-Test-Simple-0.98/t/Builder/ |
| Current File : //proc/2/root/proc/self/root/proc/2/cwd/usr/share/doc/perl-Test-Simple-0.98/t/Builder/has_plan2.t |
#!/usr/bin/perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = '../lib';
}
}
use Test::More;
BEGIN {
if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) {
plan skip_all => "Won't work with t/TEST";
}
}
use strict;
use Test::Builder;
plan 'no_plan';
is(Test::Builder->new->has_plan, 'no_plan', 'has no_plan');