t/subroutine-in-inc.t

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