diff options
| author | Stefan Metzmacher <metze@samba.org> | 2007-10-27 10:00:44 +0200 |
|---|---|---|
| committer | Stefan Metzmacher <metze@samba.org> | 2007-12-21 05:43:41 +0100 |
| commit | 09ec68baddb5d17a0eb9e142c1f1bbe0603d465e (patch) | |
| tree | 052c8da3ff032c24b3b79fd04ebee5aaf00e51fa | |
| parent | e63df41e743ba9323ad2a563f042d227a0f55b8f (diff) | |
| download | samba-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.pm | 19 |
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($$) |