t/20-bad.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 use lib 't/lib';
   9
  10 eval {
  11  require Test::Valgrind;
  12  Test::Valgrind->import(
  13   action => 'Test::Valgrind::Test::Action',
  14  );
  15 };
  16 if ($@) {
  17  diag $@;
  18  plan skip_all
  19         => 'Test::Valgrind is required to test your distribution with valgrind';
  20 }
  21
  22 eval {
  23  require XSLoader;
  24  XSLoader::load('Test::Valgrind', $Test::Valgrind::VERSION);
  25 };
  26 if ($@) {
  27  diag $@;
  28 } else {
  29  diag "leaking some bytes!";
  30  Test::Valgrind::leak();
  31 }