r28042 - in /trunk/dh-make-perl: debian/control t/debian-version.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Dec 11 08:08:36 2008
New Revision: 28042

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28042
Log:
add t/debian-version.t -- check that the debian package version matches the module version

Added:
    trunk/dh-make-perl/t/debian-version.t
Modified:
    trunk/dh-make-perl/debian/control

Modified: trunk/dh-make-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/control?rev=28042&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/control (original)
+++ trunk/dh-make-perl/debian/control Thu Dec 11 08:08:36 2008
@@ -11,6 +11,7 @@
  libfile-touch-perl,
  libmodule-corelist-perl,
  libmodule-depends-perl,
+ libparse-debianchangelog-perl,
  libtest-pod-coverage-perl,
  libtest-pod-perl,
  libtext-diff-perl,

Added: trunk/dh-make-perl/t/debian-version.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/debian-version.t?rev=28042&op=file
==============================================================================
--- trunk/dh-make-perl/t/debian-version.t (added)
+++ trunk/dh-make-perl/t/debian-version.t Thu Dec 11 08:08:36 2008
@@ -1,0 +1,15 @@
+#!perl -T
+
+use Test::More tests => 1;
+
+use App::DhMakePerl;
+
+use FindBin qw($Bin);
+use Parse::DebianChangelog;
+
+plan skip_all => "'no 'debian/changelog' found"
+    unless -f "$Bin/../debian/changelog";
+
+my $cl = Parse::DebianChangelog->init->parse( { infile => "$Bin/../debian/changelog" } );
+
+is( $cl->data( { count => 1   } )->[0]->{Version}, $App::DhMakePerl::VERSION, 'Debian package version matches module version' );