[license-reconcile] 02/03: Add test to ensure that all version numbers are the same

[Axel Beckert]

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

abe pushed a commit to branch master
in repository license-reconcile.

commit 12256524454607fd95cf056de2b3c24a420dc3c2
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Sat Sep 28 22:21:03 2013 +0200

    Add test to ensure that all version numbers are the same
---
 debian/changelog |    2 ++
 t/version.t      |   28 ++++++++++++++++++++++++++++
 2 files changed, 30 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index 1eb3ab6..377a422 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -8,6 +8,8 @@ license-reconcile (0.4) UNRELEASED; urgency=low
     version to build-dependency.
   * Adapt t/lib/TestData.pm to Perl 5.18's error messages.
     + Build-Depend-Indep on Perl >= 5.18
+  * Add test to ensure that all version numbers in the modules are the
+    same as in debian/changelog.
 
  -- Axel Beckert <abe at debian.org>  Sat, 28 Sep 2013 18:32:43 +0200
 
diff --git a/t/version.t b/t/version.t
new file mode 100644
index 0000000..aecf859
--- /dev/null
+++ b/t/version.t
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -wl
+
+use Test::More;
+use File::Basename;
+
+my $basedir = dirname($0).'/..';
+
+my $debian_changelog_version = `head -1 $basedir/debian/changelog | awk -F'[ ()]+' '{print \$2}'`;
+chomp($debian_changelog_version);
+
+foreach my $file (map { "$basedir/$_" }
+                  ('lib/Debian/LicenseReconcile.pm',
+                   glob('lib/Debian/LicenseReconcile/*.pm'),
+                   glob('lib/Debian/LicenseReconcile/*/*.pm'))) {
+    my $pm_version = `egrep '^our .VERSION' $file`;
+    eval($pm_version);
+
+    is( $VERSION, $debian_changelog_version,
+        "Version number in debian/changelog and \$VERSION in $file are the same" );
+
+    my $pod_version = `egrep '^Version [0-9]' $file`;
+    my @v = split(/\s+/, $pod_version);
+
+    is( $v[1], $debian_changelog_version,
+        "Version numbers in debian/changelog and POD of $file are the same" );
+}
+
+done_testing;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/license-reconcile.git