t/10-suppressions.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 2;
   6
   7 use Test::Valgrind::Suppressions qw/supp_path VG_PATH/;
   8
   9 my $path = supp_path();
  10 like($path, qr!Test/Valgrind/perlTestValgrind\.supp$!,
  11      'supppath() returns the path to the suppression file');
  12
  13 isnt(VG_PATH, undef, 'VG_PATH is defined');