selftest: Use external processes for filtering known failures and pretty

[sfrench/samba-autobuild/.git] / selftest / output / buildfarm.pm

diff --git a/selftest/output/buildfarm.pm b/selftest/output/buildfarm.pm
index f4daf690108c89ee15dae2f7f51be1592130d0cd..701444359b5910335b164be8fd4ab352e248140d 100644 (file)
--- a/selftest/output/buildfarm.pm
+++ b/selftest/output/buildfarm.pm
@@ -29,9 +29,10 @@ use BuildFarm;
 use strict;
 
 sub new($$$) {
-       my ($class) = @_;
+       my ($class, $statistics) = @_;
        my $self = {
                test_output => {},
+               statistics => $statistics,
                last_time => 0,
                start_time => undef,
        };
@@ -111,6 +112,8 @@ sub summary($)
        my ($self) = @_;
        
        BuildFarm::summary($self->{last_time} - $self->{start_time});
+
+       print "TEST STATUS: $self->{statistics}->{SUITES_FAIL}\n";
 }
 
 sub skip_testsuite($$$)