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(action => 'Test::Valgrind::Test::Action');
  13 };
  14 if ($@) {
  15  diag $@;
  16  plan skip_all
  17         => 'Test::Valgrind is required to test your distribution with valgrind';
  18 }
  19
  20 eval {
  21  require XSLoader;
  22  XSLoader::load('Test::Valgrind', $Test::Valgrind::VERSION);
  23 };
  24 if ($@) {
  25  diag $@;
  26 } else {
  27  Test::Valgrind::leak();
  28 }