TEST

Author: Leont

t/sharedir.t

@@ -85,7 +85,9 @@ SKIP: {
     run_ok('make', 'install');
 
 	my $dir = catdir($install, qw/lib perl5 auto share dist TestDist/);
-	ok(-d $dir, 'Sharedir has been created');
+	ok(-d $dir, 'Sharedir has been created') or diag $dir;
+	open my $fh, '<', 'Makefile';
+	diag <$fh>;
 	ok(-e catfile($dir, 'normalfile'), 'File in sharedir has been created');
     ok(-e catfile($dir, qw/dots .dotdir .dotfile/), 'A dotfile in a dotdir installed');
 }