lib/Test/Simple/t/plan_no_plan.t

   1 BEGIN {
   2     if( $ENV{PERL_CORE} ) {
   3         chdir 't';
   4         @INC = '../lib';
   5     }
   6 }
   7
   8 use Test::More;
   9
  10 BEGIN {
  11     if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) {
  12         plan skip_all => "Won't work with t/TEST";
  13     }
  14 }
  15
  16 BEGIN {
  17     require Test::Harness;
  18 }
  19
  20 if( $Test::Harness::VERSION < 1.20 ) {
  21     plan skip_all => 'Need Test::Harness 1.20 or up';
  22 }
  23 else {
  24     plan 'no_plan';
  25 }
  26
  27 pass('Just testing');
  28 ok(1, 'Testing again');