diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2009-06-03 17:39:54 +0200 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2009-06-11 19:59:57 +0200 |
commit | 0a1dbf353dc9cf1e0202e013fa112f177cbf51cf (patch) | |
tree | 814211e5b8a8e5c64d7757d5eb3bcfc0cd1fac85 | |
parent | 7ea3cc5f2991f7ef4ce8661d3a4047aa34bffae1 (diff) | |
download | samba-0a1dbf353dc9cf1e0202e013fa112f177cbf51cf.tar.gz samba-0a1dbf353dc9cf1e0202e013fa112f177cbf51cf.tar.bz2 samba-0a1dbf353dc9cf1e0202e013fa112f177cbf51cf.zip |
subunit: Support the time: command.
-rw-r--r-- | selftest/Subunit.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/selftest/Subunit.pm b/selftest/Subunit.pm index 19af636d0b..fc1a3d1d97 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; |