t/subroutine-in-inc.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3
   4 use Test::More tests => 1;
   5
   6 use File::Spec;
   7 use Cwd;
   8 use lib 't/lib'; use TempDir;
   9 use local::lib ();
  10
  11 sub CODE_in_INC() {
  12     return scalar grep { ref eq 'CODE' } @INC;
  13 }
  14
  15 my $dir = mk_temp_dir('sub-in-INC-XXXXX');
  16
  17 my $base = CODE_in_INC;
  18 unshift @INC, sub { () };
  19 splice @INC, 3, 1, sub { () };
  20 push @INC, sub { () };
  21
  22 local::lib->import($dir);
  23
  24 is( CODE_in_INC, $base + 3 );