t/subroutine-in-inc.t

   1 #!/usr/bin/perl -w
   2
   3 use Test::More tests => 1;
   4
   5 use File::Spec;
   6 use Cwd;
   7 use File::Temp qw/ tempdir /;
   8 my $base;
   9
  10 sub CODE_in_INC() {
  11     return scalar grep { ref eq 'CODE' } @INC;
  12 }
  13
  14 my $dir;
  15
  16 BEGIN {
  17     $base = CODE_in_INC;
  18     unshift @INC, sub { };
  19     splice @INC, 3, 1, sub { };
  20     push @INC, sub { };
  21
  22     $dir = tempdir( DIR => Cwd::abs_path('t'), CLEANUP => 1 );
  23 }
  24
  25 use local::lib( $dir );
  26
  27 is( CODE_in_INC, $base + 3 );