[Pkg-haskell-commits] [package-plan] 94/457: Print more warnings

[Joachim Breitner]

This is an automated email from the git hooks/post-receive script.

nomeata pushed a commit to branch master
in repository package-plan.

commit 474b04af78f770747fbe889d70022124d60e14a4
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed May 29 08:21:38 2013 +0000

    Print more warnings
---
 test-packages.pl | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/test-packages.pl b/test-packages.pl
index b53692f..530d450 100644
--- a/test-packages.pl
+++ b/test-packages.pl
@@ -29,7 +29,7 @@ print "Reading available versions...\n";
 open AVAILABLE, "-|", "grep-aptavail -F GHC-Package . -s GHC-Package -n" or die $!;
 while (<AVAILABLE>) {
 	chomp;
-	unless (m/^(.*)-(.*)-(.*)$/) {
+	unless (m/^(.*)-([0-9\.]*)-([a-f0-9]*?)$/) {
 		print "Ignoring unparseable grep-aptavail output line $.: $_\n";
 	}
 	$available{$1} = $2;
@@ -38,17 +38,20 @@ while (<AVAILABLE>) {
 }
 close AVAILABLE;
 
-print "Checking for outdated entries...\n";
+print "Checking for outdated entries (produces false warnings for non-libraries)...\n";
 for my $pkg (sort keys %packages) {
 	if (! exists($versions{$pkg})) {
-		printf "Missing entry: %s %s\n" ,
+		printf "MISSING: %s %s\n" ,
 			$pkg, $available{$pkg};
-	} elsif (! exists($versions{$pkg})) {
-		printf "%s is %s here but does not exist in the archive.\n" ,
+	} elsif (! exists($available{$pkg})) {
+		printf "New:     %s is %s here but does not exist in the archive.\n" ,
 			$pkg, $versions{$pkg};
 	} elsif ( version->parse($versions{$pkg}) < version->parse($available{$pkg}) ) {
-		printf "%s is %s here but %s exists in the archive.\n" ,
+		printf "OLD:     %s is %s here but %s exists in the archive.\n" ,
 			$pkg, $versions{$pkg}, $available{$pkg};
+	} elsif ( version->parse($versions{$pkg}) > version->parse($available{$pkg}) ) {
+		printf "Updated: %s is %s in the archive but %s exists here.\n" ,
+			$pkg, $available{$pkg}, $versions{$pkg};
  	}
 }
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/package-plan.git