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 # This feature requires a fairly new version of Test::Harness
  23 if( $Test::Harness::VERSION < 2.03 ) {
  24     plan tests => 1;
  25     diag "Need Test::Harness 2.03 or up.  You have $Test::Harness::VERSION.";
  26     fail 'Need Test::Harness 2.03 or up';
  27     exit;
  28 }
  29
  30 use strict;
  31 use Test::Builder;
  32
  33 plan 'no_plan';
  34 is(Test::Builder->has_plan, 'no_plan', 'has no_plan');