More suppressions

[perl/modules/Test-Valgrind.git] / gen.pl

diff --git a/gen.pl b/gen.pl
index 9376b5c39f05d69fc084254ee32c3a4006d94c40..b995b50552105da4dadb16e5a130cfd4e9cb418e 100755 (executable)
--- a/gen.pl
+++ b/gen.pl
@@ -19,7 +19,9 @@ if ($@) {
   XSLoader::load('Test::Valgrind', \$Test::Valgrind::VERSION);
  ";
  unless ($@) {
+  plan tests => 1;
   Test::Valgrind::notleak("valgrind it!");
+  fail('fake');
  } else {
   diag $@;
  }