diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2007-12-11 14:24:20 +0100 |
|---|---|---|
| committer | Stefan Metzmacher <metze@samba.org> | 2007-12-21 05:49:27 +0100 |
| commit | 78a4f5eadad447cd92f27a5fe4311eceea12f1f9 (patch) | |
| tree | 744ac9b5429c268324f4ef704c5d56020537346b | |
| parent | 1ea47faa979ad2e4aa4cf1f4252aa33aef98dbd8 (diff) | |
| download | samba-78a4f5eadad447cd92f27a5fe4311eceea12f1f9.tar.gz samba-78a4f5eadad447cd92f27a5fe4311eceea12f1f9.tar.bz2 samba-78a4f5eadad447cd92f27a5fe4311eceea12f1f9.zip | |
r26398: Fix writing the output of failed tests to st/summary.
(This used to be commit 34b9ddddaffe67de821a19219bcceec75f9d8fdd)
| -rw-r--r-- | source4/selftest/output/plain.pm | 11 |
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"; } } |