From: Karen Etheridge <ether@cpan.org>
Date: Thu, 3 Oct 2013 19:48:19 +0000 (-0700)
Subject: more diagnostics to help debug the *occasional* failures of this test on win32
X-Git-Tag: 1.008020~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3da9c71d44b0447dd0fc8a7d7b635bc2a50313d;p=p5sagit%2Flocal-lib.git

more diagnostics to help debug the *occasional* failures of this test on win32
---

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, '*')));
+  };
 }