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