Output more diagnostics when 'use Test::Valgrind' fails

diff --git a/t/20-good.t b/t/20-good.t
index d13977d91f3886eb25f9295932b942a6d86d7399..510a0a359e63a9f84a914361e0db3623f0bc2106 100644 (file)
--- a/t/20-good.t
+++ b/t/20-good.t
@@ -6,6 +6,9 @@ use warnings;
 use Test::More;
 use lib qw{blib/archpub};
 eval 'use Test::Valgrind';
-plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind' if $@;
+if ($@) {
+ diag $@;
+ plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind';
+}
 
 1;

diff --git a/t/21-good-block.t b/t/21-good-block.t
index 7eea4b5793e10c586f065ca5e64c35607312bc49..272ea53fd04770dc6a0992df7c95ff538bdf3592 100644 (file)
--- a/t/21-good-block.t
+++ b/t/21-good-block.t
@@ -6,6 +6,9 @@ use warnings;
 use Test::More;
 use lib qw{blib/archpub};
 eval { use Test::Valgrind };
-plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind' if $@;
+if ($@) {
+ diag $@;
+ plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind';
+}
 
 1;

diff --git a/t/30-bad.t b/t/30-bad.t
index e20b42313f10cba955f687daadb0d1784dbd3759..4250639846c86dfe876be3116b13526d9e657d2c 100644 (file)
--- a/t/30-bad.t
+++ b/t/30-bad.t
@@ -39,6 +39,7 @@ if ($@) {
  use lib qw{blib/archpub};
  eval 'use Test::Valgrind cb => \&tester;';
  if ($@) {
+  diag $@;
   plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind';
  } else {
   Test::Valgrind::leak();