t/10-suppressions.t

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