summaryrefslogtreecommitdiff
path: root/source4/selftest/output/plain.pm
diff options
context:
space:
mode:
Diffstat (limited to 'source4/selftest/output/plain.pm')
-rw-r--r--source4/selftest/output/plain.pm11
1 files changed, 8 insertions, 3 deletions
diff --git a/source4/selftest/output/plain.pm b/source4/selftest/output/plain.pm
index 0406ca7d3d..8a56d1c922 100644
--- a/source4/selftest/output/plain.pm
+++ b/source4/selftest/output/plain.pm
@@ -70,6 +70,7 @@ sub end_testsuite($$$$$$)
if ($ret != $expected_ret and $self->{immediate} and not $self->{verbose}) {
$out .= $self->{test_output}->{$name};
+ push (@{$self->{suitesfailed}}, $name);
}
print $out;
@@ -108,6 +109,13 @@ sub summary($)
if ($#{$self->{suitesfailed}} > -1) {
print SUMMARY "= Failed tests =\n";
+
+ foreach (@{$self->{suitesfailed}}) {
+ print SUMMARY "== $_ ==\n";
+ print SUMMARY $self->{test_output}->{$_}."\n\n";
+ }
+
+ print SUMMARY "\n";
}
if (not $self->{immediate} and not $self->{verbose}) {
@@ -116,9 +124,6 @@ sub summary($)
print "FAIL: $_\n";
print $self->{test_output}->{$_};
print "\n";
-
- print SUMMARY "= $_ =\n";
- print SUMMARY $self->{test_output}->{$_}."\n\n";
}
}