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   require XSLoader;
  18   XSLoader::load('Test::Valgrind', $Test::Valgrind::VERSION);
  19  };
  20  unless ($@) {
  21   Test::Valgrind::notleak("valgrind it!");
  22  }
  23 }
  24
  25 1;