[SCM] Debian package checker branch, master, updated. 2.2.9-49-gd848434

["Russ Allbery" <rra@debian.org>]

The following commit has been merged in the master branch:
commit b7e125ba22da91c70a4a7030aed2a8b213dbc81b
Author: Raphael Geissert <atomo64@gmail.com>
Date:   Sun Apr 12 22:39:56 2009 -0500

    Test the existence of the collection scripts in Needs-Info
    
    Use a simple shell script disguised as a perl script so that it can be run via
    prove. Fix checks/etcfiles.desc while at it.

diff --git a/checks/etcfiles.desc b/checks/etcfiles.desc
index f1c5ead..b9eaaab 100644
--- a/checks/etcfiles.desc
+++ b/checks/etcfiles.desc
@@ -2,7 +2,6 @@ Check-Script: etcfiles
 Author: Sean 'Shaleh' Perry <shaleh@debian.org>
 Abbrev: etc
 Type: binary
-Needs-Info: etcfiles
 Unpack-Level: 1
 
 Tag: file-in-etc-not-marked-as-conffile
diff --git a/t/scripts/needs-info.t b/t/scripts/needs-info.t
new file mode 100644
index 0000000..30a203c
--- /dev/null
+++ b/t/scripts/needs-info.t
@@ -0,0 +1,59 @@
+#!/usr/bin/perl
+
+true and exec '/bin/sh', $0;
+__END__ 2>/dev/null || true
+
+# Test to make sure all the collection scripts listed in the Needs-Info fields
+# of {checks,collection}/*desc do exist
+
+# Perl's prove, the shell way :)
+
+####################
+#    Copyright (C) 2009 by Raphael Geissert <atomo64@gmail.com>
+#
+#
+#    This file 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 file 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 file.  If not, see <http://www.gnu.org/licenses/>.
+####################
+
+set -e
+
+LINTIAN_ROOT=${LINTIAN_ROOT:=$(pwd)}
+
+descs="$(find "$LINTIAN_ROOT/collection/" "$LINTIAN_ROOT/checks/" \
+	-name '*desc' -type f)"
+
+total="$(echo "$descs" | wc -l)"
+
+printf "1..%d\n" "$total"
+
+c=1
+
+echo "$descs" |
+while read desc; do
+    needs="$(sed -n 's/^Needs-Info:\s*//g;T;s/,/ /g;s/\s+/ /g;p' "$desc")"
+    missing=
+    for coll in $needs; do
+	[ -f "$LINTIAN_ROOT/collection/$coll" ] || {
+	    missing="$missing
+#   Missing collection script '$coll' detected
+#   at $desc"
+	}
+    done
+    [ -z "$missing" ] || printf 'not '
+    printf 'ok %d - %s has valid needs-info\n' "$c" "${desc#$LINTIAN_ROOT/}"
+    [ -z "$missing" ] || printf '%s\n' "$missing" >&2
+    c=$((c+1))
+done
+
+exit

-- 
Debian package checker