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

[metze at samba.org]

Author: metze
Date: 2007-10-27 10:00:44 +0000 (Sat, 27 Oct 2007)
New Revision: 25746

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

Log:
[selftest] make plain output more readable

metze

Modified:
   branches/SAMBA_4_0/source/selftest/output/plain.pm


Changeset:
Modified: branches/SAMBA_4_0/source/selftest/output/plain.pm
===================================================================
--- branches/SAMBA_4_0/source/selftest/output/plain.pm	2007-10-27 09:57:09 UTC (rev 25745)
+++ branches/SAMBA_4_0/source/selftest/output/plain.pm	2007-10-27 10:00:44 UTC (rev 25746)
@@ -122,14 +122,6 @@
 		}
 	}
 
-	if ($self->{statistics}->{SUITES_FAIL} == 0) {
-		my $ok = $self->{statistics}->{TESTS_EXPECTED_OK} + 
-				 $self->{statistics}->{TESTS_EXPECTED_FAIL};
-		print "ALL OK ($ok tests in $self->{statistics}->{SUITES_OK} testsuites)\n";
-	} else {
-		print "FAILED ($self->{statistics}->{TESTS_UNEXPECTED_FAIL} failures and $self->{statistics}->{TESTS_ERROR} errors in $self->{statistics}->{SUITES_FAIL} testsuites)\n";
-	}
-
 	print SUMMARY "= Skipped tests =\n";
 	foreach my $reason (keys %{$self->{skips}}) {
 		print SUMMARY "$reason\n";
@@ -140,7 +132,16 @@
 	}
 	close(SUMMARY);
 
-	print "A summary can be found in $self->{summaryfile}\n";
+	print "\nA summary with detailed informations can be found in:\n  $self->{summaryfile}\n";
+
+	if ($self->{statistics}->{SUITES_FAIL} == 0) {
+		my $ok = $self->{statistics}->{TESTS_EXPECTED_OK} + 
+				 $self->{statistics}->{TESTS_EXPECTED_FAIL};
+		print "\nALL OK ($ok tests in $self->{statistics}->{SUITES_OK} testsuites)\n";
+	} else {
+		print "\nFAILED ($self->{statistics}->{TESTS_UNEXPECTED_FAIL} failures and $self->{statistics}->{TESTS_ERROR} errors in $self->{statistics}->{SUITES_FAIL} testsuites)\n";
+	}
+
 }
 
 sub skip_testsuite($$)