selftest/buildfarm: Don't assume that a reason being specified is an indication of...

diff --git a/selftest/output/buildfarm.pm b/selftest/output/buildfarm.pm
index 09b84de99eba3186f8069109d57aad928d2f693a..8612cfbc76b4cb8fe2ebc69be6541437af71004e 100644 (file)
--- a/selftest/output/buildfarm.pm
+++ b/selftest/output/buildfarm.pm
@@ -87,9 +87,16 @@ sub control_msg($$)
        }
 }
 
-sub end_testsuite($$$$$$)
+sub end_testsuite($$$$$)
 {
-       my ($self, $name, $result, $unexpected, $reason) = @_;
+       my ($self, $name, $result, $reason) = @_;
+
+       my $unexpected;
+       if ($result eq "failure" or $result eq "fail" or $result eq "error") {
+               $unexpected = 1;
+       } else {
+               $unexpected = 0;
+       }
 
        BuildFarm::end_testsuite($name, ($self->{last_time} - $self->{START_TIME}), 
                                     (not $unexpected), $self->{test_output}->{$name},