diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2009-06-05 16:32:52 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2009-06-11 19:59:59 +0200 |
| commit | ed61cc5419651437ae0b8eb7d3dd9c56c7627388 (patch) | |
| tree | 2d7d98fc17fd681ebe3a62628ecf2c40c4fc57c0 /selftest/Subunit.pm | |
| parent | 68578d6374236e0606b21f5168956c3a515b7b0c (diff) | |
| download | samba-ed61cc5419651437ae0b8eb7d3dd9c56c7627388.tar.gz | |
selftest: Fix subunit formatting, fix years when filtering subunit
streams.
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"; } } |