From: Vincent Pit <vince@profvince.com>
Date: Sat, 27 Sep 2008 22:24:24 +0000 (+0200)
Subject: Output more diagnostics when 'use Test::Valgrind' fails
X-Git-Tag: v0.07~16
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=4ca25301481d92802343f764a0ff2f6e3f82e86b;p=perl%2Fmodules%2FTest-Valgrind.git

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

diff --git a/t/20-good.t b/t/20-good.t
index d13977d..510a0a3 100644
--- 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 7eea4b5..272ea53 100644
--- 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 e20b423..4250639 100644
--- 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();