blob: 5186ea06806ef1dd4efcbce149d26873c3a9b882 (
plain)
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
|
#!/usr/bin/perl
# Test for complete coverage of tags in profiles
# - side-effect, test that all tags and checks
# in the profiles are valid.
use strict;
use warnings;
use Const::Fast;
use File::Find::Rule;
use Path::Tiny;
use Test::More;
use Lintian::Deb822;
const my $EMPTY => q{};
const my $TESTS_PER_TAG => 3;
# allow commas until all third-party profiles present in Lintian
# installations, such as dpkg/main.profile, have been converted
const my $FIELD_SEPARATOR => qr/ \s+ | \s* , \s* /sx;
my $known_tests = 0;
my $root = $ENV{'LINTIAN_BASE'} // q{.};
my %CHECKS;
my $checkdir = "$root/lib/Lintian/Check";
# find all checks
my @modulepaths = File::Find::Rule->file->name('*.pm')->in($checkdir);
for my $modulepath (@modulepaths) {
my $relative = path($modulepath)->relative($checkdir)->stringify;
my ($name) = ($relative =~ /^(.*)\.pm$/);
$name =~ s{([[:upper:]])}{-\L$1}g;
$name =~ s{^-}{};
$name =~ s{/-}{/}g;
$CHECKS{$name} = [];
}
my %TAGS;
# find all tags
my @tag_paths = File::Find::Rule->file->name('*.tag')->in("$root/tags");
for my $tag_path (@tag_paths) {
my $deb822 = Lintian::Deb822->new;
my @sections = $deb822->read_file($tag_path);
BAIL_OUT("$tag_path does not have at least one paragraph")
unless @sections;
my $header = shift @sections;
ok($header->declares('Tag'), "Field Tag exists in $tag_path");
ok($header->declares('Check'), "Field Check exists in $tag_path");
my $tag_name = $header->value('Tag');
my $check_name = $header->value('Check');
ok(exists $CHECKS{$check_name},
"Check $check_name mentioned in $tag_path exists");
$CHECKS{$check_name} //= [];
push(@{$CHECKS{$check_name}}, $tag_name);
$TAGS{$tag_name} = 0;
}
$known_tests += $TESTS_PER_TAG * scalar @tag_paths;
done_testing($known_tests);
exit 0;
# Local Variables:
# indent-tabs-mode: nil
# cperl-indent-level: 4
# End:
# vim: syntax=perl sw=4 sts=4 sr et
|
