5 use Test::More tests => 3;
7 use lib qw{blib/archpub};
8 use Test::Valgrind::Suppressions qw/supp_path VG_PATH/;
10 my $path = supp_path();
11 like($path, qr!Test/Valgrind/perlTestValgrind\.supp$!,
12 'supppath() returns the path to the suppression file');
14 isnt(VG_PATH, undef, 'VG_PATH is defined');
16 if (not open my $supp, '<', $path) {
17 fail("Couldn't open the suppression file at $path: $!");
19 pass("Could open the suppression file");
20 my ($in, $count, $true, $line) = (0, 0, 0, 0);
26 if (!$in && $_ eq '{') {
28 } elsif ($in && $_ eq '}') {
30 ++$true if $line - $in >= 2;
34 diag "$count suppressions, of which $true are not empty";