More explicit error message for bogus failures

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

diff --git a/t/21-good-block.t b/t/21-good-block.t
index 7eea4b5793e10c586f065ca5e64c35607312bc49..d635f213e77f4ec0a80d021ff01ba71dfcdd09ae 100644 (file)
--- a/t/21-good-block.t
+++ b/t/21-good-block.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');