r35160 - /trunk/dh-make-perl/t/Dep.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon May 11 10:20:33 2009
New Revision: 35160

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35160
Log:
Dep.t: add tests for zero versions

Modified:
    trunk/dh-make-perl/t/Dep.t

Modified: trunk/dh-make-perl/t/Dep.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/Dep.t?rev=35160&op=diff
==============================================================================
--- trunk/dh-make-perl/t/Dep.t (original)
+++ trunk/dh-make-perl/t/Dep.t Mon May 11 10:20:33 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 142;
+use Test::More tests => 145;
 
 BEGIN {
     use_ok('Debian::Dependency');
@@ -36,6 +36,15 @@
 my $se = eval { Debian::Dependency->new('libfoo-perl (=1.2)') };
 ok( !$@, '= dependency parsed' );
 is( $se->rel, '=', '= dependency detected' );
+
+my $d = Debian::Dependency->new( 'foo', '0' );
+is( "$d", 'foo', 'zero version is ignored when given in new' );
+
+$d = Debian::Dependency->new( 'foo', '0.000' );
+is( "$d", 'foo', '0.000 version is ignored when given in new' );
+
+$d = Debian::Dependency->new('libfoo (>= 0.000)');
+is( "$d", 'libfoo', 'zero version is ignored when parsing' );
 
 sub sat( $ $ $ ) {
     my( $dep, $test, $expected ) = @_;