ext/Test-Simple/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     $result = use_ok("strict");
  22 }
  23
  24 ok( $result, "use_ok() ran" );
  25 done_testing(2);
  26