+
+$sess = eval { Test::Valgrind::Session->new(
+ no_def_supp => 1,
+ extra_supp => [ 't/supp/no_perl' ],
+)->run(
+ tool => $tool,
+ command => $cmd,
+ action => $dummy_action,
+) };
+like $@, qr/No compatible suppressions available/,
+ 'incompatible suppression file';
+
+$sess = eval { Test::Valgrind::Session->new(
+ no_def_supp => 1,
+ allow_no_supp => 1,
+ extra_supp => [ 't/supp/no_perl' ],
+)->run(
+ tool => $tool,
+ command => $cmd,
+ action => $dummy_action,
+) };
+is $@, '', 'incompatible suppression file, but forced';