Generate suppressions with eval BLOCK, and test it too

[perl/modules/Test-Valgrind.git] / t / 10-suppressions.t

diff --git a/t/10-suppressions.t b/t/10-suppressions.t
index 9dc37d9e73ff75131c01bedf5c25f3673d67579a..ca9db49ff0cc5bb427fb44ff028ce1118a221da3 100644 (file)
--- a/t/10-suppressions.t
+++ b/t/10-suppressions.t
@@ -2,10 +2,13 @@
 
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More tests => 2;
 
-use Test::Valgrind::Suppressions qw/supppath/;
+use lib qw{blib/archpub};
+use Test::Valgrind::Suppressions qw/supp_path VG_PATH/;
 
-my $path = supppath();
+my $path = supp_path();
 like($path, qr!Test/Valgrind/perlTestValgrind\.supp$!,
      'supppath() returns the path to the suppression file');
+
+isnt(VG_PATH, undef, 'VG_PATH is defined');