summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--selftest/Subunit.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/selftest/Subunit.pm b/selftest/Subunit.pm
index 0bbb795c8c..f7284d3f55 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));
- } elsif (/^(success|successful|failure|skip|knownfail|error): (.*?)( \[)?([ \t]*)\n/) {
+ } elsif (/^(success|successful|failure|fail|skip|knownfail|error): (.*?)( \[)?([ \t]*)\n/) {
$msg_ops->control_msg($_);
my $reason = undef;
if ($3) {
@@ -68,7 +68,7 @@ sub parse_results($$$$$)
$statistics->{TESTS_EXPECTED_OK}++;
$msg_ops->end_test($open_tests, $2, $1, 0, $reason);
}
- } elsif ($1 eq "failure") {
+ } elsif ($1 eq "failure" or $1 eq "fail") {
pop(@$open_tests); #FIXME: Check that popped value == $2
if ($expecting_failure->(join(".", @$open_tests) . ".$2")) {
$statistics->{TESTS_EXPECTED_FAIL}++;