} 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;
$self->SUPER::report($sess, $report);
}
+sub abort_smart {
+ my $self = shift;
+
+ $extra_tests = 0;
+
+ $self->SUPER::abort(@_);
+}
+
sub DESTROY {
return unless $extra_tests;