BEGIN { plan skip_all => "Install Capture::Tiny to test installation"
unless eval { require Capture::Tiny; 1 } }
use Capture::Tiny qw(capture);
-use File::Temp qw(tempdir);
use File::Spec;
use Cwd;
use Config;
+use lib 't/lib'; use TempDir;
+
plan tests => 2;
-my $dir = tempdir('test_local_lib-XXXXX', DIR => Cwd::abs_path('t'), CLEANUP => 1);
+my $dir = mk_temp_dir('test_local_lib-XXXXX');
use local::lib ();
local::lib->import($dir);
} };
diag $stdout, $stderr if $@;
}
+ my $file = File::Spec->catfile($dir, qw(lib perl5), "$dist_type.pm");
ok(
- -e File::Spec->catfile(
- $dir, qw(lib perl5), "$dist_type.pm",
- ),
- "$dist_type.pm installed into the correct location",
+ -e $file,
+ "$dist_type - $dist_type.pm installed as $file",
);
}