use normalized path on win32 in this test too

[p5sagit/local-lib.git] / t / install.t

diff --git a/t/install.t b/t/install.t
index 100834f..5a515c8 100644 (file)
--- a/t/install.t
+++ b/t/install.t
@@ -4,14 +4,15 @@ use Test::More;
 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);
@@ -35,6 +36,6 @@ SKIP: for my $dist_type (qw(EUMM MB)) {
   my $file = File::Spec->catfile($dir, qw(lib perl5), "$dist_type.pm");
   ok(
     -e $file,
-    "$dist_type.pm installed as $file",
+    "$dist_type - $dist_type.pm installed as $file",
   );
 }