[SCM] Debian package checker branch, master, updated. 2.4.3-253-g5c5f7af

["Raphael Geissert" <atomo64@gmail.com>]

The following commit has been merged in the master branch:
commit e9cc406281fde809eca8cfe141ba46f7ccab03e9
Author: Raphael Geissert <atomo64@gmail.com>
Date:   Sat Feb 19 22:06:33 2011 -0600

    Add a test for the format of our own changelog

diff --git a/t/scripts/changelog-format.t b/t/scripts/changelog-format.t
new file mode 100755
index 0000000..86f1fb8
--- /dev/null
+++ b/t/scripts/changelog-format.t
@@ -0,0 +1,94 @@
+#!/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');
+
+my $changes = $changelog->dpkg()->{'Changes'};
+my $line = 0;
+my $prev_head = '';
+
+foreach (split /\n/,$changes) {
+    # Parse::DebianChangelog adds an empty line at the beginning:
+    next if ($_ eq '');
+
+    # P::DC adds a space too:
+    s/^ //;
+    $line++;
+
+    my $spaces = 0;
+    $spaces++ while (s/^\s//);
+
+    cmp_ok (($spaces + length), '<=', 75, 'Changelog line is not too long');
+
+=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 == 4) {
+	    ok(m/^[A-Z]/, 'line is the release header')
+		or diag("line: $line");
+	} else {
+	    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 either empty, or 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();

-- 
Debian package checker