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