diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2009-05-13 19:57:58 +0200 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2009-06-03 16:26:30 +0200 |
commit | 641f8d62df2d7ba0e80f3c8d78c3f8185dcf7048 (patch) | |
tree | 2ff45a1c31a742f485af7843cb7923f59e819434 /selftest/output/plain.pm | |
parent | 53aeb7f4cf4935fbf48d745e6f38a9793120c1a9 (diff) | |
download | samba-641f8d62df2d7ba0e80f3c8d78c3f8185dcf7048.tar.gz samba-641f8d62df2d7ba0e80f3c8d78c3f8185dcf7048.tar.bz2 samba-641f8d62df2d7ba0e80f3c8d78c3f8185dcf7048.zip |
Support reporting current time in selftest output.
Diffstat (limited to 'selftest/output/plain.pm')
-rw-r--r-- | selftest/output/plain.pm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/selftest/output/plain.pm b/selftest/output/plain.pm index 5312a9e27b..26056038f5 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}; |