git.maemo.org Git - pkg-perl/blob - deb-src/libtest-simple-perl/libtest-simple-perl-0.80/t/has_plan.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 strict;
  11 use Test::Builder;
  12
  13 my $unplanned;
  14
  15 BEGIN {
  16         $unplanned = 'oops';
  17         $unplanned = Test::Builder->new->has_plan;
  18 };
  19
  20 use Test::More tests => 2;
  21
  22 is($unplanned, undef, 'no plan yet defined');
  23 is(Test::Builder->new->has_plan, 2, 'has fixed plan');