lib/ExtUtils/testlib.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6 }
   7
   8 use Test::More tests => 3;
   9
  10 my @blib_paths = grep { /blib/ } @INC;
  11 is( @blib_paths, 0, 'No blib dirs yet in @INC' );
  12
  13 use_ok( 'ExtUtils::testlib' );
  14
  15 @blib_paths = grep { /blib/ } @INC;
  16 is( @blib_paths, 2, 'ExtUtils::testlib added two @INC dirs!' );