svn commit: samba r22384 - in
branches/SAMBA_4_0/source/script/tests: .
metze at samba.org
metze at samba.org
Thu Apr 19 17:50:58 GMT 2007
Author: metze
Date: 2007-04-19 17:50:57 +0000 (Thu, 19 Apr 2007)
New Revision: 22384
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=22384
Log:
print out the total selftest runtime
and the time for each test
we hit the max runtime of smbd on some hosts
metze
Modified:
branches/SAMBA_4_0/source/script/tests/selftest.pl
Changeset:
Modified: branches/SAMBA_4_0/source/script/tests/selftest.pl
===================================================================
--- branches/SAMBA_4_0/source/script/tests/selftest.pl 2007-04-19 17:29:57 UTC (rev 22383)
+++ branches/SAMBA_4_0/source/script/tests/selftest.pl 2007-04-19 17:50:57 UTC (rev 22384)
@@ -191,6 +191,7 @@
$out .= "Running test $state->{NAME} (level 0 stdout)\n";
$out .= "--==--==--==--==--==--==--==--==--==--==--\n";
$out .= scalar(localtime())."\n";
+ $out .= "SELFTEST RUNTIME: " . ($state->{START} - $start) . "s";
$out .= "NAME: $state->{NAME}\n";
$out .= "CMD: $state->{CMD}\n";
@@ -211,6 +212,8 @@
my ($state, $expected_ret, $ret) = @_;
my $out = "";
+ $out .= "TEST RUNTIME: " . (time() - $state->{START}) . "s";
+
if ($ret == $expected_ret) {
$out .= "ALL OK\n";
} else {
More information about the samba-cvs
mailing list