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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
#!/usr/bin/perl -w
# Copyright (C) 2011 Raphael Geissert <geissert@debian.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, you can find it on the World Wide
# Web at http://www.gnu.org/copyleft/gpl.html, or write to the Free
# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
# MA 02110-1301, USA.
use strict;
use warnings;
use Test::More;
use Parse::DebianChangelog;
my $changelog = Parse::DebianChangelog->init({ infile => 'debian/changelog' })
or BAIL_OUT('fatal error while loading parser');
plan skip_all => 'Only valid for regular Debian releases'
if should_skip($changelog);
my $changes = $changelog->dpkg()->{'Changes'};
my $line = 0;
my $prev_head = '';
my $release_header = 0;
foreach (split /\n/,$changes) {
# Parse::DebianChangelog adds an empty line at the beginning:
next if ($_ eq '');
# P::DC adds a space too:
s/^ //;
$line++;
if (m/^\s*$/o) {
$release_header = 0;
next;
}
my $spaces = 0;
$spaces++ while (s/^\s//);
cmp_ok (($spaces + length), '<=', 75, "Changelog line is not too long: line $line");
=meh
# Disabled because Parse::DebianChangelog trims lines for us
ok ($_ eq '' || m/[^\s]$/, 'No trailing space at the end of line')
or diag("line: $line");
s/\s*$//;
=cut
if ($spaces == 2) {
if (m/^\*/) {
pass('line is a bullet list item');
ok(m/:$/, 'bullet item ends in colon')
or diag("line: $line");
} elsif ($line == 3) {
ok(m/^[A-Z]/, 'line is the release header')
or diag("line: $line");
$release_header = 1;
} else {
# Unless this is a multi-line release header, it should
# have been a bullet list. Also limit the length of the
# release header.
unless ($release_header && $line < 7) {
fail('line is a bullet list item');
diag("line: $line");
}
}
} elsif ($spaces == 4) {
ok(m/^\+/, 'line is a sub-item of a bullet-list item')
or diag("line: $line");
} elsif ($spaces == 6) {
if ($prev_head eq '+') {
ok(m/^[^+*]/, 'line is a continuation of change description')
or diag("line: $line");
} else {
ok(m/^-/, 'line is a sub-item of tags summary')
or diag("line: $line");
}
} elsif ($spaces == 8) {
ok($prev_head eq '-', 'line is a continuation of tag change')
or diag("line: $line");
} else {
ok(m/^(:?\.|lintian.+)$/, 'line is an entry header')
or diag("line: $line");
}
if (m/\S\w\. (.)/) {
ok($1 eq ' ', 'two spaces after a full stop')
or diag("line: $line");
}
$prev_head = $1
if (m/^([*+-])/);
}
done_testing();
sub should_skip{
my ($changelog) = @_;
my $version = $changelog->dpkg->{'Version'};
# Normal releases look something like X.Y.Z or X.Y.Z~rcR
return $version !~ m/^\d+(?:\.\d+)*(?:\~rc\d+)?$/o;
}
|
