lib/Test/Simple/t/Builder/has_plan.t

   1 #!/usr/bin/perl -w
   2 # $Id: /mirror/googlecode/test-more/t/Builder/has_plan.t 60332 2008-09-09T12:24:03.060291Z schwern  $
   3
   4 BEGIN {
   5     if( $ENV{PERL_CORE} ) {
   6         chdir 't';
   7         @INC = ('../lib');
   8     }
   9 }
  10
  11 use strict;
  12 use Test::Builder;
  13
  14 my $unplanned;
  15
  16 BEGIN {
  17         $unplanned = 'oops';
  18         $unplanned = Test::Builder->new->has_plan;
  19 };
  20
  21 use Test::More tests => 2;
  22
  23 is($unplanned, undef, 'no plan yet defined');
  24 is(Test::Builder->new->has_plan, 2, 'has fixed plan');