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

[metze at samba.org]

Author: metze
Date: 2007-09-29 08:57:02 +0000 (Sat, 29 Sep 2007)
New Revision: 25427

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

Log:
fix SELFTEST RUNTIME calculation for the build-farm

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


Changeset:
Modified: branches/SAMBA_4_0/source/selftest/output/buildfarm.pm
===================================================================
--- branches/SAMBA_4_0/source/selftest/output/buildfarm.pm	2007-09-29 08:25:44 UTC (rev 25426)
+++ branches/SAMBA_4_0/source/selftest/output/buildfarm.pm	2007-09-29 08:57:02 UTC (rev 25427)
@@ -7,10 +7,10 @@
 
 use strict;
 
-sub new($$) {
-	my ($class) = @_;
+sub new($$$$) {
+	my ($class, $verbose, $immediate, $statistics) = @_;
 	my $self = { 
-		start => time(),
+		statistics => $statistics,
 		test_output => {}
 	};
 	bless($self, $class);
@@ -21,11 +21,12 @@
 	my ($self, $state) = @_;
 	my $out = "";
 
+	my $duration = $state->{START_TIME} - $self->{statistics}->{START_TIME};
 	$out .= "--==--==--==--==--==--==--==--==--==--==--\n";
 	$out .= "Running test $state->{NAME} (level 0 stdout)\n";
 	$out .= "--==--==--==--==--==--==--==--==--==--==--\n";
 	$out .= scalar(localtime())."\n";
-	$out .= "SELFTEST RUNTIME: " . ($state->{START_TIME} - $self->{START_TIME}) . "s\n";
+	$out .= "SELFTEST RUNTIME: " . $duration . "s\n";
 	$out .= "NAME: $state->{NAME}\n";
 	$out .= "CMD: $state->{CMD}\n";
 

Modified: branches/SAMBA_4_0/source/selftest/output/plain.pm
===================================================================
--- branches/SAMBA_4_0/source/selftest/output/plain.pm	2007-09-29 08:25:44 UTC (rev 25426)
+++ branches/SAMBA_4_0/source/selftest/output/plain.pm	2007-09-29 08:57:02 UTC (rev 25427)
@@ -13,8 +13,7 @@
 		immediate => $immediate, 
 		statistics => $statistics,
 		test_output => {},
-		suitesfailed => [],
-		start => time()
+		suitesfailed => []
 	};
 	bless($self, $class);
 }