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

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = ('../lib', 'lib');
   7     }
   8     else {
   9         unshift @INC, 't/lib';
  10     }
  11 }
  12
  13 use Test::More;
  14
  15 my $result;
  16 BEGIN {
  17     eval {
  18         require_ok("Wibble");
  19     };
  20     $result = $@;
  21 }
  22
  23 plan tests => 1;
  24 like $result, '/^You tried to run a test without a plan/';