selftest: Update locations in README.

[metze/samba/wip.git] / selftest / filter-subunit.pl

diff --git a/selftest/filter-subunit.pl b/selftest/filter-subunit.pl
index cbc078765e43620e2367527e289163e4ea2219c1..5e87ef49f6969aa7aaf040abc49134732b135722 100755 (executable)
--- a/selftest/filter-subunit.pl
+++ b/selftest/filter-subunit.pl
@@ -62,10 +62,12 @@ use Subunit::Filter;
 my $opt_expected_failures = undef;
 my $opt_help = 0;
 my $opt_prefix = undef;
+my $opt_strip_ok_output = 0;
 my @expected_failures = ();
 
 my $result = GetOptions(
                'expected-failures=s' => \$opt_expected_failures,
+               'strip-passed-output' => \$opt_strip_ok_output,
                'prefix=s' => \$opt_prefix,
                'help' => \$opt_help,
        );
@@ -80,9 +82,10 @@ if (defined($opt_expected_failures)) {
        @expected_failures = Subunit::Filter::read_test_regexes($opt_expected_failures);
 }
 
-my $statistics = {
-       SUITES_FAIL => 0,
+# we want unbuffered output
+$| = 1;
 
+my $statistics = {
        TESTS_UNEXPECTED_OK => 0,
        TESTS_EXPECTED_OK => 0,
        TESTS_UNEXPECTED_FAIL => 0,
@@ -91,8 +94,7 @@ my $statistics = {
        TESTS_SKIP => 0,
 };
 
-my $msg_ops = new Subunit::Filter($opt_prefix, \@expected_failures);
-
-parse_results($msg_ops, $statistics, *STDIN, []);
+my $msg_ops = new Subunit::Filter($opt_prefix, \@expected_failures, 
+                                     $opt_strip_ok_output);
 
-0;
+exit(parse_results($msg_ops, $statistics, *STDIN));