include the expected location in the test name, for diagnosing mysterious failures
Karen Etheridge [Sun, 15 Sep 2013 19:38:51 +0000 (12:38 -0700)]
t/install.t

index 2ac49cc..100834f 100644 (file)
@@ -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",
   );
 }