summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Metzmacher <metze@samba.org>2007-10-27 10:00:44 +0200
committerStefan Metzmacher <metze@samba.org>2007-12-21 05:43:41 +0100
commit09ec68baddb5d17a0eb9e142c1f1bbe0603d465e (patch)
tree052c8da3ff032c24b3b79fd04ebee5aaf00e51fa
parente63df41e743ba9323ad2a563f042d227a0f55b8f (diff)
downloadsamba-09ec68baddb5d17a0eb9e142c1f1bbe0603d465e.tar.gz
samba-09ec68baddb5d17a0eb9e142c1f1bbe0603d465e.tar.bz2
samba-09ec68baddb5d17a0eb9e142c1f1bbe0603d465e.zip
r25746: [selftest] make plain output more readable
metze (This used to be commit b9363755ee9f6ca7e04729519991f9ba0163ff2f)
-rw-r--r--source4/selftest/output/plain.pm19
1 files changed, 10 insertions, 9 deletions
diff --git a/source4/selftest/output/plain.pm b/source4/selftest/output/plain.pm
index 6b196090a1..0406ca7d3d 100644
--- a/source4/selftest/output/plain.pm
+++ b/source4/selftest/output/plain.pm
@@ -122,14 +122,6 @@ sub summary($)
}
}
- 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 @@ sub summary($)
}
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($$)