X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F80-suppressions.t;h=bb93875bf15dd7467aeef3714775158c9737f082;hb=f1aad8ec2ce1d9605f720789dbb48fb3afbec3e8;hp=b9266a5f7aa351fd3ed64330b0b8e896c703a43a;hpb=b41c498738a3a4ccb8742883a42e6ea5addb1afd;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/t/80-suppressions.t b/t/80-suppressions.t
index b9266a5..bb93875 100644
--- a/t/80-suppressions.t
+++ b/t/80-suppressions.t
@@ -3,11 +3,10 @@
 use strict;
 use warnings;
 
-use Test::More tests => 4;
+use Test::More;
 
 use Test::Valgrind::Command;
 use Test::Valgrind::Tool;
-use Test::Valgrind::Action;
 use Test::Valgrind::Session;
 
 my $cmd = Test::Valgrind::Command->new(
@@ -19,9 +18,16 @@ my $tool = Test::Valgrind::Tool->new(
  tool => 'memcheck',
 );
 
-my $sess = Test::Valgrind::Session->new(
+my $sess = eval { Test::Valgrind::Session->new(
  min_version => $tool->requires_version,
-);
+) };
+
+if (my $err = $@) {
+ $err =~ s/^(Empty valgrind candidates list|No appropriate valgrind executable could be found)\s+at.*/$1/;
+ plan skip_all => $err;
+} else {
+ plan tests => 4;
+}
 
 $sess->command($cmd);
 $sess->tool($tool);