2 # Pretty-format subunit output
3 # Copyright (C) Jelmer Vernooij <jelmer@samba.org>
4 # Published under the GNU GPL, v3 or later
8 use FindBin
qw($RealBin $Script);
10 use Subunit qw(parse_results);
12 my $opt_format = "plain";
15 my $opt_immediate = 0;
18 my $result = GetOptions
(
19 'help|h|?' => \
$opt_help,
20 'format=s' => \
$opt_format,
21 'verbose' => \
$opt_verbose,
22 'immediate' => \
$opt_immediate,
23 'prefix:s' => \
$opt_prefix,
26 exit(1) if (not $result);
28 if (defined($ENV{RUN_FROM_BUILD_FARM
}) and
29 ($ENV{RUN_FROM_BUILD_FARM
} eq "yes")) {
30 $opt_format = "buildfarm";
38 TESTS_UNEXPECTED_OK
=> 0,
39 TESTS_EXPECTED_OK
=> 0,
40 TESTS_UNEXPECTED_FAIL
=> 0,
41 TESTS_EXPECTED_FAIL
=> 0,
46 if ($opt_format eq "buildfarm") {
47 require output
::buildfarm
;
48 $msg_ops = new output
::buildfarm
($statistics);
49 } elsif ($opt_format eq "plain") {
50 require output
::plain
;
51 $msg_ops = new output
::plain
("$opt_prefix/summary", $opt_verbose, $opt_immediate, $statistics, undef);
52 } elsif ($opt_format eq "html") {
54 mkdir("test-results", 0777);
55 $msg_ops = new output
::html
("test-results", $statistics);
56 } elsif ($opt_format eq "subunit") {
57 require output
::subunit
;
58 $msg_ops = new output
::subunit
();
60 die("Invalid output format '$opt_format'");
63 my $expected_ret = parse_results
(
64 $msg_ops, $statistics, *STDIN
, []);