summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2009-06-03 17:39:54 +0200
committerJelmer Vernooij <jelmer@samba.org>2009-06-11 19:59:57 +0200
commit0a1dbf353dc9cf1e0202e013fa112f177cbf51cf (patch)
tree814211e5b8a8e5c64d7757d5eb3bcfc0cd1fac85
parent7ea3cc5f2991f7ef4ce8661d3a4047aa34bffae1 (diff)
downloadsamba-0a1dbf353dc9cf1e0202e013fa112f177cbf51cf.tar.gz
samba-0a1dbf353dc9cf1e0202e013fa112f177cbf51cf.tar.bz2
samba-0a1dbf353dc9cf1e0202e013fa112f177cbf51cf.zip
subunit: Support the time: command.
-rw-r--r--selftest/Subunit.pm3
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;