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
|
#!/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');
}
|
