lib/Test/Simple/t/has_plan2.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = '../lib';
   7     }
   8 }
   9
  10 use Test::More;
  11
  12 BEGIN {
  13     if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) {
  14         plan skip_all => "Won't work with t/TEST";
  15     }
  16 }
  17
  18 BEGIN {
  19     require Test::Harness;
  20 }
  21
  22 if( $Test::Harness::VERSION < 1.20 ) {
  23     plan skip_all => 'Need Test::Harness 1.20 or up';
  24 }
  25
  26 use strict;
  27 use Test::Builder;
  28
  29 plan 'no_plan';
  30 is(Test::Builder->has_plan, 'no_plan', 'has no_plan');