Adding upstream version 2.117.0.upstream/2.117.0upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 81 insertions, 0 deletions

diff --git a/t/scripts/profiles-coverage.t b/t/scripts/profiles-coverage.t
new file mode 100755
index 0000000..5186ea0
--- /dev/null
+++ b/t/scripts/profiles-coverage.t
@@ -0,0 +1,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