svn commit: samba r26398 - in branches/SAMBA_4_0: . source/selftest/output

[jelmer at samba.org]

Author: jelmer
Date: 2007-12-11 14:24:20 +0000 (Tue, 11 Dec 2007)
New Revision: 26398

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=26398

Log:
Fix writing the output of failed tests to st/summary.
Modified:
   branches/SAMBA_4_0/
   branches/SAMBA_4_0/source/selftest/output/plain.pm


Changeset:

Property changes on: branches/SAMBA_4_0
___________________________________________________________________
Name: bzr:revision-info
...skipped...
Name: bzr:file-ids
...skipped...
Name: bzr:revision-id:v3-trunk0
...skipped...

Modified: branches/SAMBA_4_0/source/selftest/output/plain.pm
===================================================================
--- branches/SAMBA_4_0/source/selftest/output/plain.pm	2007-12-11 13:38:54 UTC (rev 26397)
+++ branches/SAMBA_4_0/source/selftest/output/plain.pm	2007-12-11 14:24:20 UTC (rev 26398)
@@ -70,6 +70,7 @@
 
 	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 @@
 
 	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 @@
 			print "FAIL: $_\n";
 			print $self->{test_output}->{$_};
 			print "\n";
-
-			print SUMMARY "= $_ =\n";
-			print SUMMARY $self->{test_output}->{$_}."\n\n";
 		}
 	}