r33682 - in /trunk/dh-make-perl: debian/changelog t/debian-version.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Apr 21 19:49:47 2009
New Revision: 33682

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33682
Log:
fix t/debian-version.t to allow (ignore) ~foo version siffux

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

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=33682&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Tue Apr 21 19:49:47 2009
@@ -12,6 +12,7 @@
     + install links via debian/links, README via debian/docs
     + this gives support to 'nocheck' in DEB_BUILD_OPTIONS (Closes: #523560)
   * revert defaulting --dist to 'sid' when --pkg-perl is given
+  * fix t/debian-version.t to allow (ignore) ~foo version siffux
 
   [ Ryan Niebur ]
   * add myself to the AUTHOR section

Modified: 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=33682&op=diff
==============================================================================
--- trunk/dh-make-perl/t/debian-version.t (original)
+++ trunk/dh-make-perl/t/debian-version.t Tue Apr 21 19:49:47 2009
@@ -12,4 +12,6 @@
 
 my $cl = Parse::DebianChangelog->init->parse( { infile => "$Bin/../debian/changelog" } );
 
-is( $cl->data( { count => 1   } )->[0]->{Version}, $DhMakePerl::VERSION, 'Debian package version matches module version' );
+my $pkg_ver = $cl->data( { count => 1   } )->[0]->{Version};
+$pkg_ver =~ s/~.+//;    # ignore !foo suffix
+is( $pkg_ver, $DhMakePerl::VERSION, 'Debian package version matches module version' );