diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2009-06-05 16:55:45 +0200 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2009-06-11 19:59:59 +0200 |
commit | d8a77a798b5c691c76fcbadbc41c97ff1c9922f3 (patch) | |
tree | 949e80dade2618002b36173be2082c833ce3909b /selftest/Subunit.pm | |
parent | 2e311fdac56f43998bb192418f617e6e7a6fc320 (diff) | |
download | samba-d8a77a798b5c691c76fcbadbc41c97ff1c9922f3.tar.gz |
selftest: Properly recognize xfail testsuites.
Diffstat (limited to 'selftest/Subunit.pm')
-rw-r--r-- | selftest/Subunit.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/selftest/Subunit.pm b/selftest/Subunit.pm index 16aab739262..bb23483d12d 100644 --- a/selftest/Subunit.pm +++ b/selftest/Subunit.pm @@ -39,7 +39,7 @@ sub parse_results($$$) 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-1900)); - } elsif (/^(success|successful|failure|fail|skip|knownfail|error|xfail|skip-testsuite|testsuite-failure|testsuite-success|testsuite-error): (.*?)( \[)?([ \t]*)\n/) { + } elsif (/^(success|successful|failure|fail|skip|knownfail|error|xfail|skip-testsuite|testsuite-failure|testsuite-xfail|testsuite-success|testsuite-error): (.*?)( \[)?([ \t]*)\n/) { $msg_ops->control_msg($_); my $result = $1; my $testname = $2; @@ -91,6 +91,8 @@ sub parse_results($$$) $msg_ops->end_testsuite($testname, "success", $reason); } elsif ($result eq "testsuite-failure") { $msg_ops->end_testsuite($testname, "failure", $reason); + } elsif ($result eq "testsuite-xfail") { + $msg_ops->end_testsuite($testname, "xfail", $reason); } elsif ($result eq "testsuite-error") { $msg_ops->end_testsuite($testname, "error", $reason); } |