]> git.vpit.fr Git - perl/modules/Test-Valgrind.git/blob - t/20-bad.t
Remove two misleading assigments in t/80-suppressions.t
[perl/modules/Test-Valgrind.git] / 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 }