[Pkg-haskell-commits] [package-plan] 01/02: test-packages: Report LTS status independent of other reports

[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 cad9e8e825283b265d2bcabe50c0dba37b3d75de
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed Jun 17 09:55:25 2015 +0200

    test-packages: Report LTS status independent of other reports
---
 test-packages.pl | 44 ++++++++++++++++++++++++--------------------
 1 file changed, 24 insertions(+), 20 deletions(-)

diff --git a/test-packages.pl b/test-packages.pl
index f6b7666..6e91bfd 100755
--- a/test-packages.pl
+++ b/test-packages.pl
@@ -166,26 +166,30 @@ for my $pkg (sort keys %packages) {
 		printf "Updated:  %s is %s in the archive but %s exists here.\n" ,
 			$pkg, $available{$pkg}, $versions{$pkg};
 		$stats{Updated}++;
-	} elsif ( exists $lts{$pkg} and version_compare($versions{$pkg}, $lts{$pkg}) == 1 ) {
-		if ( exists $ahead{$pkg} ) {
-			printf "Ahead:    %s is %s here, but only %s in the tracked LTS release (expected).\n" ,
-				$pkg, $available{$pkg}, $lts{$pkg};
-			$stats{"known-ahead"}++;
-		} else {
-			printf "AHEAD:    %s is %s here, but only %s in the tracked LTS release.\n" ,
-				$pkg, $available{$pkg}, $lts{$pkg};
-			$stats{AHEAD}++;
-			$error_count++;
-		}
-	} elsif ( exists $lts{$pkg} and version_compare($versions{$pkg}, $lts{$pkg}) <= 1 ) {
-		if ( exists $ahead{$pkg} ) {
-			printf "NOT AHEAD:%s is (no longer) ahead of the LTS release, remove marker!\n", $pkg;
-			$error_count++;
-		}
-		if ( version_compare($versions{$pkg}, $lts{$pkg}) == -1 ) {
-			#printf "AHEAD  %s is %s here, but only %s in the tracked LTS release.\n" ,
-			#	$pkg, $available{$pkg}, $lts{$pkg};
-			$stats{"lts-upgradeable"}++;
+	}
+
+	if ( exists $lts{$pkg} and exists $versions{$pkg} ) {
+		if ( version_compare($versions{$pkg}, $lts{$pkg}) == 1 ) {
+			if ( exists $ahead{$pkg} ) {
+				printf "Ahead:    %s is %s here, but only %s in the tracked LTS release (expected).\n" ,
+					$pkg, $available{$pkg}, $lts{$pkg};
+				$stats{"known-ahead"}++;
+			} else {
+				printf "AHEAD:    %s is %s here, but only %s in the tracked LTS release.\n" ,
+					$pkg, $available{$pkg}, $lts{$pkg};
+				$stats{AHEAD}++;
+				$error_count++;
+			}
+		} elsif ( version_compare($versions{$pkg}, $lts{$pkg}) <= 1 ) {
+			if ( exists $ahead{$pkg} ) {
+				printf "NOT AHEAD:%s is (no longer) ahead of the LTS release, remove marker!\n", $pkg;
+				$error_count++;
+			}
+			if ( version_compare($versions{$pkg}, $lts{$pkg}) == -1 ) {
+				#printf "AHEAD  %s is %s here, but only %s in the tracked LTS release.\n" ,
+				#	$pkg, $available{$pkg}, $lts{$pkg};
+				$stats{"lts-upgradeable"}++;
+			}
 		}
 	}
 }

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