ext/Test-Simple/t/BEGIN_require_ok.t

   1 #!/usr/bin/perl -w
   2
   3 # Fixed a problem with BEGIN { use_ok or require_ok } silently failing when there's no
   4 # plan set.  [rt.cpan.org 28345]  Thanks Adriano Ferreira and Yitzchak.
   5
   6 use strict;
   7
   8 BEGIN {
   9     if( $ENV{PERL_CORE} ) {
  10         chdir 't';
  11         @INC = ('../lib', 'lib');
  12     }
  13     else {
  14         unshift @INC, 't/lib';
  15     }
  16 }
  17
  18 use Test::More;
  19
  20 my $result;
  21 BEGIN {
  22     $result = require_ok("strict");
  23 }
  24
  25 ok $result, "require_ok ran";
  26
  27 done_testing(2);