From: Jelmer Vernooij <jelmer@samba.org>
Date: Wed, 3 Jun 2009 15:39:54 +0000 (+0200)
Subject: subunit: Support the time: command.
X-Git-Tag: tdb-1.1.5~90
X-Git-Url: http://git.samba.org/samba.git/?p=garming%2Fsamba-autobuild%2F.git;a=commitdiff_plain;h=0a1dbf353dc9cf1e0202e013fa112f177cbf51cf

subunit: Support the time: command.
---

diff --git a/selftest/Subunit.pm b/selftest/Subunit.pm
index 19af636d0ba..fc1a3d1d97d 100644
--- a/selftest/Subunit.pm
+++ b/selftest/Subunit.pm
@@ -15,6 +15,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 package Subunit;
+use POSIX;
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -36,6 +37,8 @@ sub parse_results($$$$$)
 			$msg_ops->control_msg($_);
 			$msg_ops->start_test($open_tests, $1);
 			push (@$open_tests, $1);
+		} elsif (/^time: (\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)Z\n/) {
+			$msg_ops->report_time(mktime($6, $5, $4, $3, $2, $1));
 		} elsif (/^(success|successful|failure|skip|knownfail|error): (.*?)( \[)?([ \t]*)\n/) {
 			$msg_ops->control_msg($_);
 			my $reason = undef;