From ed61cc5419651437ae0b8eb7d3dd9c56c7627388 Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Fri, 5 Jun 2009 16:32:52 +0200 Subject: selftest: Fix subunit formatting, fix years when filtering subunit streams. --- selftest/Subunit.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'selftest/Subunit.pm') diff --git a/selftest/Subunit.pm b/selftest/Subunit.pm index 4fddeec8b1..71d65f0ee5 100644 --- a/selftest/Subunit.pm +++ b/selftest/Subunit.pm @@ -38,7 +38,7 @@ sub parse_results($$$$) $msg_ops->start_test($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)); + $msg_ops->report_time(mktime($6, $5, $4, $3, $2, $1-1900)); } elsif (/^(success|successful|failure|fail|skip|knownfail|error|xfail|skip-testsuite|testsuite-failure|testsuite-success|testsuite-error): (.*?)( \[)?([ \t]*)\n/) { $msg_ops->control_msg($_); my $result = $1; @@ -197,11 +197,11 @@ sub end_testsuite($$;$) my $result = shift; my $reason = shift; if ($reason) { - print "testsuite-$result: $name ["; - print "$reason"; + print "testsuite-$result: $name [\n"; + print "$reason\n"; print "]\n"; } else { - print "$result: $name\n"; + print "testsuite-$result: $name\n"; } } -- cgit