X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Finstall.t;h=1ee35d02f922d211598cae5df617ed4667115705;hb=3c3d12bedd577d58405781199f4c1ab9540c29b0;hp=5a515c84ad15e96b6372d1d0dbf9adc2b9385c33;hpb=4f7dfe32ffd4c87fd3bcaf6168caf4ebd3a73d90;p=p5sagit%2Flocal-lib.git

diff --git a/t/install.t b/t/install.t
index 5a515c8..1ee35d0 100644
--- a/t/install.t
+++ b/t/install.t
@@ -18,7 +18,7 @@ use local::lib ();
 local::lib->import($dir);
 
 my $orig_dir = cwd;
-SKIP: for my $dist_type (qw(EUMM MB)) {
+SKIP: for my $dist_type (qw(MB EUMM)) {
   chdir File::Spec->catdir($orig_dir, qw(t dist), $dist_type);
   if ($dist_type eq 'EUMM') {
     my ($stdout, $stderr) = capture { eval {
@@ -37,5 +37,9 @@ SKIP: for my $dist_type (qw(EUMM MB)) {
   ok(
     -e $file,
     "$dist_type - $dist_type.pm installed as $file",
-  );
+  )
+  or do {
+        my $dest_dir = File::Spec->catdir($dir, qw(lib perl5));
+        diag 'Files in ' . $dest_dir . ":\n", join("\n", glob(File::Spec->catfile($dest_dir, '*')));
+  };
 }