X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Finstall.t;h=100834fa45cabe54812d4dc839ac14e0dfd15052;hb=5da9706a04aec9da59a228cabbb3ac78b962a480;hp=67cfa174ee96dddf527b1980570d0da00a140dff;hpb=011371a72271984f9e521e2d2f507905d7d5bd04;p=p5sagit%2Flocal-lib.git

diff --git a/t/install.t b/t/install.t
index 67cfa17..100834f 100644
--- a/t/install.t
+++ b/t/install.t
@@ -20,7 +20,7 @@ my $orig_dir = cwd;
 SKIP: for my $dist_type (qw(EUMM MB)) {
   chdir File::Spec->catdir($orig_dir, qw(t dist), $dist_type);
   if ($dist_type eq 'EUMM') {
-    my ($stdout, $stderr) = capture { eval { 
+    my ($stdout, $stderr) = capture { eval {
       system($^X, 'Makefile.PL') && die "Makefile.PL failed";
       system($Config{make}, 'install') && die "$Config{make} install failed";
     } };
@@ -32,10 +32,9 @@ SKIP: for my $dist_type (qw(EUMM MB)) {
     } };
     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.pm installed as $file",
   );
 }