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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Dec  7 17:16:05 2008
New Revision: 27864

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

Added:
    trunk/dh-make-perl/t/Dep.t   (with props)

Added: trunk/dh-make-perl/t/Dep.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/Dep.t?rev=27864&op=file
==============================================================================
--- trunk/dh-make-perl/t/Dep.t (added)
+++ trunk/dh-make-perl/t/Dep.t Sun Dec  7 17:16:05 2008
@@ -1,0 +1,38 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use Test::More tests => 18;
+
+use FindBin qw($Bin);
+
+require_ok "$Bin/../dh-make-perl";        # Load our code for testing.
+
+my $plain = eval{ Dep->new('perl') };
+ok( !$@, 'simple Dep constructed' );
+is( $plain->pkg, 'perl', 'name parsed correctly' );
+is( $plain->rel, undef, "plain dependency has no relation" );
+is( $plain->ver, undef, "plain dependency has no version" );
+
+my $ver   = eval { Dep->new('libfoo', '5.6') };
+ok( !$@, 'versioned Dep constructed' );
+is( $ver->pkg, 'libfoo', 'versioned name parsed' );
+is( $ver->ver, '5.6', 'oversion parsed' );
+is( $ver->rel, '>=', '>= relation parsed' );
+
+$ver = eval { Dep->new('libfoo (>= 5.6)') };
+ok( !$@, 'versioned Dep parsed' );
+is( $ver->pkg, 'libfoo', 'package of ver dep' );
+is( $ver->rel, '>=', 'relation of ver dep' );
+is( $ver->ver, '5.6', 'version of ver dep' );
+is( "$ver", 'libfoo (>= 5.6)', 'Versioned Dep stringified' );
+
+my $loe = eval { Dep->new('libbar (<= 1.2)') };
+ok( !$@, '<= dependency parsed' );
+is( $loe->rel, '<=', '<= dependency detected' );
+
+my $se = eval { Dep->new('libfoo-perl (==1.2)') };
+ok( !$@, '== dependency parsed' );
+is( $se->rel, '==', '== dependency detected' );
+

Propchange: trunk/dh-make-perl/t/Dep.t
------------------------------------------------------------------------------
    svn:executable = *