ext/Test-Simple/t/bad_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 Test::Builder;
  11 my $Test = Test::Builder->new;
  12 $Test->plan( tests => 2 );
  13 $Test->level(0);
  14
  15 my $tb = Test::Builder->create;
  16
  17 eval { $tb->plan(7); };
  18 $Test->like( $@, qr/^plan\(\) doesn't understand 7/, 'bad plan()' ) ||
  19     print STDERR "# $@";
  20
  21 eval { $tb->plan(wibble => 7); };
  22 $Test->like( $@, qr/^plan\(\) doesn't understand wibble 7/, 'bad plan()' ) ||
  23     print STDERR "# $@";