selftest: Properly recognize xfail testsuites.

[ira/wip.git] / selftest / output / buildfarm.pm

diff --git a/selftest/output/buildfarm.pm b/selftest/output/buildfarm.pm
index 95c5423383b5be1dc296989cda96d2855b0b1d7b..bd21fc683dc459f3d2f33f7a2fa79312615742e7 100644 (file)
--- a/selftest/output/buildfarm.pm
+++ b/selftest/output/buildfarm.pm
@@ -86,6 +86,9 @@ sub end_testsuite($$$$$$)
        BuildFarm::end_testsuite($name, ($self->{last_time} - $self->{START_TIME}), 
                                     (not $unexpected), $self->{test_output}->{$name}, 
                                                         $reason);
+       if ($result ne "success") {
+               $self->{statistics}->{SUITES_FAIL}++;
+       }
 }
 
 sub start_test($$$)