1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
#!/usr/bin/perl
# Filter a subunit stream
# Copyright (C) Jelmer Vernooij <jelmer@samba.org>
# Published under the GNU GPL, v3 or later
=pod
=head1 NAME
filter-subunit - Filter a subunit stream
=head1 SYNOPSIS
filter-subunit --help
filter-subunit --prefix=PREFIX --known-failures=FILE < in-stream > out-stream
=head1 DESCRIPTION
Simple Subunit stream filter that will change failures to known failures
based on a list of regular expressions.
=head1 OPTIONS
=over 4
=item I<--prefix>
Add the specified prefix to all test names.
=item I<--expected-failures>
Specify a file containing a list of tests that are expected to fail. Failures
for these tests will be counted as successes, successes will be counted as
failures.
The format for the file is, one entry per line:
TESTSUITE-NAME.TEST-NAME
The reason for a test can also be specified, by adding a hash sign (#) and the reason
after the test name.
=head1 LICENSE
selftest is licensed under the GNU General Public License L<http://www.gnu.org/licenses/gpl.html>.
=head1 AUTHOR
Jelmer Vernooij
=cut
use Getopt::Long;
use strict;
use FindBin qw($RealBin $Script);
use lib "$RealBin";
use Subunit qw(parse_results);
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,
);
exit(1) if (not $result);
if ($opt_help) {
print "Usage: filter-subunit [--prefix=PREFIX] [--expected-failures=FILE]... < instream > outstream\n";
exit(0);
}
if (defined($opt_expected_failures)) {
@expected_failures = Subunit::Filter::read_test_regexes($opt_expected_failures);
}
my $statistics = {
TESTS_UNEXPECTED_OK => 0,
TESTS_EXPECTED_OK => 0,
TESTS_UNEXPECTED_FAIL => 0,
TESTS_EXPECTED_FAIL => 0,
TESTS_ERROR => 0,
TESTS_SKIP => 0,
};
my $msg_ops = new Subunit::Filter($opt_prefix, \@expected_failures,
$opt_strip_ok_output);
exit(parse_results($msg_ops, $statistics, *STDIN));
|
