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

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Sun Jun  6 07:53:56 2010
New Revision: 58944

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58944
Log:
Add tests for new feature introduced in r58643

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=58944&op=diff
==============================================================================
--- trunk/dh-make-perl/t/Dep.t (original)
+++ trunk/dh-make-perl/t/Dep.t Sun Jun  6 07:53:56 2010
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 163;
+use Test::More tests => 167;
 
 BEGIN {
     use_ok('Debian::Dependency');
@@ -32,6 +32,18 @@
 my $loe = eval { Debian::Dependency->new('libbar (<= 1.2)') };
 ok( !$@, '<= dependency parsed' );
 is( $loe->rel, '<=', '<= dependency detected' );
+
+{
+    my $d = eval { Debian::Dependency->new('libbar (< 1.2)') };
+    ok(!$@, '< dependency parsed');
+    is($d->rel, '<=', '< dependency detected as <=');
+}
+
+{
+    my $d = eval { Debian::Dependency->new('libbar (> 1.2)') };
+    ok(!$@, '> dependency parsed');
+    is($d->rel, '>=', '> dependency detected as >=');
+}
 
 my $se = eval { Debian::Dependency->new('libfoo-perl (=1.2)') };
 ok( !$@, '= dependency parsed' );