s4:local_password LDB module - change counter variables to "unsigned" where appropriate
[ira/wip.git] / selftest / format-subunit.pl
index acaac697aa0e00792ddd23f8341ac22e8f9d9f2d..472f51a815badbee4c66f964f225fb8b02d716ed 100755 (executable)
@@ -23,7 +23,7 @@ Show errors as soon as they happen rather than at the end of the test run.
 
 =item I<--format>=FORMAT
 
-Choose the format to print. Currently supported are plain, html or buildfarm.
+Choose the format to print. Currently supported are plain or html.
 
 =head1 LICENSE
 
@@ -57,13 +57,11 @@ my $result = GetOptions (
 
 exit(1) if (not $result);
 
-if (defined($ENV{RUN_FROM_BUILD_FARM}) and 
-       ($ENV{RUN_FROM_BUILD_FARM} eq "yes")) {
-       $opt_format = "buildfarm";
-}
-
 my $msg_ops;
 
+# we want unbuffered output
+$| = 1;
+
 my $statistics = {
        SUITES_FAIL => 0,
 
@@ -75,24 +73,18 @@ my $statistics = {
        TESTS_SKIP => 0,
 };
 
-if ($opt_format eq "buildfarm") {
-       require output::buildfarm;
-       $msg_ops = new output::buildfarm($statistics);
-} elsif ($opt_format eq "plain") {
+if ($opt_format eq "plain") {
        require output::plain;
        $msg_ops = new output::plain("$opt_prefix/summary", $opt_verbose, $opt_immediate, $statistics, undef);
 } elsif ($opt_format eq "html") {
        require output::html;
        mkdir("test-results", 0777);
        $msg_ops = new output::html("test-results", $statistics);
-} elsif ($opt_format eq "subunit") {
-       require output::subunit;
-       $msg_ops = new output::subunit();
 } else {
        die("Invalid output format '$opt_format'");
 }
 
-my $expected_ret = parse_results($msg_ops, $statistics, *STDIN, []);
+my $expected_ret = parse_results($msg_ops, $statistics, *STDIN);
 
 $msg_ops->summary();