X-Git-Url: http://git.samba.org/samba.git/?p=ira%2Fwip.git;a=blobdiff_plain;f=selftest%2Foutput%2Fplain.pm;h=26056038f53d0facf7c44fb35be83668343904f0;hp=5312a9e27b3416463b47d7f9f057dd737293592f;hb=641f8d62df2d7ba0e80f3c8d78c3f8185dcf7048;hpb=53aeb7f4cf4935fbf48d745e6f38a9793120c1a9;ds=sidebyside

diff --git a/selftest/output/plain.pm b/selftest/output/plain.pm
index 5312a9e27b3..26056038f53 100644
--- a/selftest/output/plain.pm
+++ b/selftest/output/plain.pm
@@ -29,7 +29,7 @@ sub new($$$$$$$) {
 		verbose => $verbose, 
 		immediate => $immediate, 
 		statistics => $statistics,
-		start_time => time(),
+		start_time => undef,
 		test_output => {},
 		suitesfailed => [],
 		suites_ok => 0,
@@ -41,6 +41,15 @@ sub new($$$$$$$) {
 	bless($self, $class);
 }
 
+sub report_time($$)
+{
+	my ($self, $time) = @_;
+	unless ($self->{start_time}) {
+		$self->{start_time} = $time;
+	}
+	$self->{last_time} = $time;
+}
+
 sub output_msg($$);
 
 sub start_testsuite($$)
@@ -49,7 +58,7 @@ sub start_testsuite($$)
 
 	$self->{index}++;
 	$self->{NAME} = $name;
-	$self->{START_TIME} = time();
+	$self->{START_TIME} = $self->{last_time};
 
 	my $duration = $self->{START_TIME} - $self->{start_time};