From 78a4f5eadad447cd92f27a5fe4311eceea12f1f9 Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Tue, 11 Dec 2007 14:24:20 +0100 Subject: r26398: Fix writing the output of failed tests to st/summary. (This used to be commit 34b9ddddaffe67de821a19219bcceec75f9d8fdd) --- source4/selftest/output/plain.pm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'source4/selftest') 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"; } } -- cgit