From d5dd11d1f5837c1aa929e8168d5d51a470277b88 Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Thu, 29 Nov 2007 01:36:38 +0100 Subject: [PATCH] r26190: Allow successful as well as success. --- source/selftest/Subunit.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/selftest/Subunit.pm b/source/selftest/Subunit.pm index 2ecafb42d08..27e1b9815f3 100644 --- a/source/selftest/Subunit.pm +++ b/source/selftest/Subunit.pm @@ -20,7 +20,7 @@ sub parse_results($$$$$) $msg_ops->control_msg($msg_state, $_); $open_tests->{$1} = 1; $msg_ops->start_test($msg_state, $1); - } elsif (/^(success|failure|skip|error): (.*?)( \[)?([ \t]*)\n/) { + } elsif (/^(success|successful|failure|skip|error): (.*?)( \[)?([ \t]*)\n/) { $msg_ops->control_msg($msg_state, $_); my $reason = undef; if ($3) { @@ -32,7 +32,7 @@ sub parse_results($$$$$) } } my $result = $1; - if ($1 eq "success") { + if ($1 eq "success" or $1 eq "successful") { delete $open_tests->{$2}; if ($expecting_failure->("$msg_state->{NAME}/$2")) { $statistics->{TESTS_UNEXPECTED_OK}++; -- 2.20.1