diff options
Diffstat (limited to 'selftest/Subunit.pm')
| -rw-r--r-- | selftest/Subunit.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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"; } } |