Import perl (5.30.0-9)debian/5.30.0-9debian

1 files changed, 74 insertions, 0 deletions

diff --git a/debian/t/copyright.t b/debian/t/copyright.t
new file mode 100644
index 0000000..8a56b16
--- /dev/null
+++ b/debian/t/copyright.t
@@ -0,0 +1,74 @@
+#!/usr/bin/perl -w
+use strict;
+use Test::More tests => 9;
+use File::Glob ':bsd_glob';
+
+my $upstream_version;
+ok(open(P, "dpkg-parsechangelog |"), "successfully piping from dpkg-parsechangelog");
+while (<P>) {
+    /^Version: (.+)-[^-]+$/ or next;
+    $upstream_version = $1;
+    last;
+}
+isnt($upstream_version, "", "found upstream version from dpkg-parsechangelog output");
+ok(close P, "dpkg-parsechangelog exited normally");
+
+my $checked_version;
+ok(open(C, "<debian/copyright"), "successfully opened debian/copyright");
+while (<C>) {
+    next if !/^ Last checked against: Perl (.+)/;
+    $checked_version = $1;
+    last;
+}
+isnt($checked_version, "", "found checked version from debian/copyright");
+close C;
+
+is($checked_version, $upstream_version,
+    "debian/copyright last checked for the current upstream version");
+
+subtest 'Checking for stale Files: sections in debian/copyright' => sub {
+  ok(open(C, "<debian/copyright"), "successfully opened debian/copyright");
+  my $in_files = 0;
+  my $files_count = 0;
+  while (<C>) {
+    chomp;
+    s/^Files:/ / and do {
+        $in_files = 1;
+    };
+    if ($in_files) {
+        /^\S/ and do {
+            $in_files = 0;
+            next;
+        };
+        /^\s+(\S+)/ and do {
+            $files_count++;
+            my $glob = $1;
+            my @globbed = bsd_glob($glob, GLOB_ERR);
+            ok(@globbed, "'Files: $glob' in copyright file references existing files");
+        };
+    }
+  }
+  close C;
+  ok($files_count > 0, "found Files: sections in debian/copyright");
+  isnt($checked_version, "", "found checked version from debian/copyright");
+  done_testing($files_count + 3);
+};
+
+SKIP: {
+    system('which cme >/dev/null 2>&1');
+    my $cmd;
+    if ($?) {
+        system('which config-edit >/dev/null 2>&1');
+        skip('no cme or config-edit or available', 2) if $?;
+        $cmd = 'config-edit -application dpkg-copyright -ui none';
+    } else {
+        skip('no cme dpkg-copyright application available (try installing libconfig-model-dpkg-perl)', 2)
+            if qx/cme list/ !~ /dpkg-copyright/;
+        $cmd = 'cme check dpkg-copyright';
+    }
+    note("checking debian/copyright with copyright checker '$cmd'");
+    unlike( qx/$cmd 2>&1/, qr/error/,
+        'no error messages from copyright checker when parsing debian/copyright');
+    is($?, 0, 'copyright checker exited successfully');
+}
+