r26190: Allow successful as well as success.

diff --git a/source/selftest/Subunit.pm b/source/selftest/Subunit.pm
index 2ecafb42d0834ed715067ff7a666c24bb1cba529..27e1b9815f367528e0af75bc987c43b0a8009127 100644 (file)
--- 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}++;