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/subunit.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/subunit.pm')
-rw-r--r-- | selftest/output/subunit.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/selftest/output/subunit.pm b/selftest/output/subunit.pm index 720fe7285c..e99b76c1b9 100644 --- a/selftest/output/subunit.pm +++ b/selftest/output/subunit.pm @@ -33,6 +33,13 @@ sub new($) { bless($self, $class); } +sub report_time($$) +{ + my ($self, $time) = @_; + my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time); + printf "time: %04d-%02d-%02d %02d:%02d:%02dZ\n", $year+1900, $mon, $mday, $hour, $min, $sec; +} + sub start_testsuite($$) { my ($self, $name) = @_; |