lib/Test/Simple/t/BEGIN_require_ok.t

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