vcs.maemo.org Git - dh-make-perl/blob - dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/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 use strict;
  19 use Test::Builder;
  20
  21 plan 'no_plan';
  22 is(Test::Builder->new->has_plan, 'no_plan', 'has no_plan');