gen.pl

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 eval {
   6  use Test::Valgrind
   7   diag    => 1,
   8   no_test => 1,
   9   no_supp => 1,
  10   callers => 50,
  11   extra   => [ qw/--show-reachable=yes --gen-suppressions=all/ ];
  12 };
  13 if ($@) {
  14  plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind';
  15 } else {
  16  eval "
  17   use lib qw{blib/arch};
  18   require XSLoader;
  19   XSLoader::load('Test::Valgrind', \$Test::Valgrind::VERSION);
  20  ";
  21  unless ($@) {
  22   plan tests => 1;
  23   Test::Valgrind::notleak("valgrind it!");
  24   fail('fake');
  25  } else {
  26   diag $@;
  27  }
  28 }
  29
  30 1;