git.maemo.org Git - pkg-perl/blob - deb-src/libtest-simple-perl/libtest-simple-perl-0.80/t/BEGIN_use_ok.t

   1 #!/usr/bin/perl -w
   2
   3 # [rt.cpan.org 28345]
   4 #
   5 # A use_ok() inside a BEGIN block lacking a plan would be silently ignored.
   6
   7 BEGIN {
   8     if( $ENV{PERL_CORE} ) {
   9         chdir 't';
  10         @INC = ('../lib', 'lib');
  11     }
  12     else {
  13         unshift @INC, 't/lib';
  14     }
  15 }
  16
  17 use Test::More;
  18
  19 my $result;
  20 BEGIN {
  21     eval {
  22         use_ok("Wibble");
  23     };
  24     $result = $@;
  25 }
  26
  27 plan tests => 1;
  28 like $result, '/^You tried to run a test without a plan/';