X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2FTest%2FValgrind%2FTest%2FAction.pm;h=3f9c0c7bea7632e3ae3cd07d01eb7c7fc7e2bd14;hb=15e7706165e33a1e52fba63877a92613ff1794a8;hp=c56eb038f553ee8c4d402009d6d734c7b575494d;hpb=eb5a898c606b10dc7ffd4038ef8fc3690bb22367;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/t/lib/Test/Valgrind/Test/Action.pm b/t/lib/Test/Valgrind/Test/Action.pm
index c56eb03..3f9c0c7 100644
--- a/t/lib/Test/Valgrind/Test/Action.pm
+++ b/t/lib/Test/Valgrind/Test/Action.pm
@@ -18,12 +18,20 @@ BEGIN {
  } else {
   $extra_tests = 3;
   *report = *report_smart;
+  *abort  = *abort_smart;
  }
 }
 
 use Test::Builder;
 
-sub new { shift->SUPER::new(extra_tests => $extra_tests) }
+sub new {
+ my $class = shift;
+
+ $class->SUPER::new(
+  diag        => 1,
+  extra_tests => $extra_tests,
+ );
+}
 
 my @filtered_reports;
 
@@ -53,6 +61,14 @@ sub report_smart {
  $self->SUPER::report($sess, $report);
 }
 
+sub abort_smart {
+ my $self = shift;
+
+ $extra_tests = 0;
+
+ $self->SUPER::abort(@_);
+}
+
 sub DESTROY {
  return unless $extra_tests;