subunit: non-zero exit code if one or more testsuites failed.
[samba.git] / selftest / filter-subunit.pl
index 1c25db6f59517dc92a747c023935f43075f1f64c..9ebc67778f4dc54021db6c0fe54e6b3368dd5df6 100755 (executable)
@@ -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,
        );
@@ -89,8 +91,7 @@ my $statistics = {
        TESTS_SKIP => 0,
 };
 
-my $msg_ops = new Subunit::Filter($opt_prefix, \@expected_failures);
+my $msg_ops = new Subunit::Filter($opt_prefix, \@expected_failures, 
+                                     $opt_strip_ok_output);
 
-parse_results($msg_ops, $statistics, *STDIN);
-
-0;
+exit(parse_results($msg_ops, $statistics, *STDIN));