t/10-suppressions.t

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