[Pkg-haskell-commits] darcs: tools: Give comforting message at the end

[Joachim Breitner]

Sat Jun 15 11:58:44 UTC 2013  Joachim Breitner <mail at joachim-breitner.de>
  * Give comforting message at the end

    M ./all-packages/test-packages.pl +3

Sat Jun 15 11:58:44 UTC 2013  Joachim Breitner <mail at joachim-breitner.de>
  * Give comforting message at the end
diff -rN -u old-tools/all-packages/test-packages.pl new-tools/all-packages/test-packages.pl
--- old-tools/all-packages/test-packages.pl	2013-06-15 11:58:55.206944674 +0000
+++ new-tools/all-packages/test-packages.pl	2013-06-15 11:58:55.217988171 +0000
@@ -181,6 +181,7 @@
 my $out;
 my $err;
 if (run \@params, \"", \$out, \$err) {
+	my $count;
 	while ($out =~ m!^([a-zA-H0-9-]+)-([0-9.]+)$!gm) {
 		my ($pkg, $version) = ($1, $2);
 		unless (exists $versions{$pkg}) {
@@ -191,7 +192,9 @@
 			printf "ERROR: %s has %s but should have %\n", $pkg, $version, $versions{$pkg};
 			next
 		}
+		$count++;
 	}
+	printf "%s packages successfully tested for co-installability.\n", $count;
 } else {
 	print "Cabal install failed:\n";
 	print $err;