More explicit error message for bogus failures

[perl/modules/Test-Valgrind.git] / t / 20-good.t

diff --git a/t/20-good.t b/t/20-good.t
index d13977d91f3886eb25f9295932b942a6d86d7399..059785e7e8045ac265274b57d568532e99dacc5c 100644 (file)
--- a/t/20-good.t
+++ b/t/20-good.t
@@ -6,6 +6,10 @@ 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;
+plan tests => 1;
+fail('bogus failure, don\'t worry');