r53041 - /trunk/dh-make-perl/t/perl-deps.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Thu Feb 18 22:31:47 UTC 2010
Author: dmn
Date: Thu Feb 18 22:31:37 2010
New Revision: 53041
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53041
Log:
fix perl-deps.t too honour 'perl is not B-E' and such
Modified:
trunk/dh-make-perl/t/perl-deps.t
Modified: trunk/dh-make-perl/t/perl-deps.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/perl-deps.t?rev=53041&op=diff
==============================================================================
--- trunk/dh-make-perl/t/perl-deps.t (original)
+++ trunk/dh-make-perl/t/perl-deps.t Thu Feb 18 22:31:37 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 10;
+use Test::More tests => 11;
use Test::Exception;
BEGIN {
@@ -18,16 +18,18 @@
$ctl->prune_simple_perl_dep( $dep->new('perl|perl-modules') )
} 'prune_simple_perl_dep croaks on alternatives';
-is( $ctl->prune_perl_dep( $dep->new('perl-modules') ), 'perl', 'perl-modules is converted to perl' );
+is( $ctl->prune_perl_dep( $dep->new('perl-modules (>= 5.10)') ), 'perl (>= 5.10)', 'perl-modules is converted to perl' );
-is( $ctl->prune_perl_dep( $dep->new('perl-modules|foo') ), 'perl | foo', 'perl-modules is converted to perl in alternatives' );
+is( $ctl->prune_perl_dep( $dep->new('perl-modules (>= 5.10)|foo') ), 'perl (>= 5.10) | foo', 'perl-modules is converted to perl in alternatives' );
is( $ctl->prune_perl_dep( $dep->new('perl-base') ), undef, 'plain dependency on perl-base is redundant' );
-is( $ctl->prune_perl_dep( $dep->new('perl-modules'), 1 ), undef, 'perl-modules is build-essential' );
+is( $ctl->prune_perl_dep( $dep->new('perl'), 1 ), 'perl', 'perl is not build-essential' );
-is( $ctl->prune_perl_dep( $dep->new('foo|perl-modules'), 1 ), undef, 'redundant alternative makes redundand the whole' );
+is( $ctl->prune_perl_dep( $dep->new('perl-modules'), 1 ), 'perl', 'perl-modules is not build-essential' );
-is( $ctl->prune_perl_dep( $dep->new('perl (>= 5.8.0)'), 1 ), undef, 'perl 5.8.0 is ancient' );
+is( $ctl->prune_perl_dep( $dep->new('foo|perl-modules') ), undef, 'redundant alternative makes redundand the whole' );
-is( $ctl->prune_perl_dep( $dep->new('perl (= 5.8.0)'), 1 ), 'perl (= 5.8.0)', 'perl =5.8.0 is left intact' );
+is( $ctl->prune_perl_dep( $dep->new('perl (>= 5.8.0)') ), undef, 'perl 5.8.0 is ancient' );
+
+is( $ctl->prune_perl_dep( $dep->new('perl (= 5.8.0)') ), 'perl (= 5.8.0)', 'perl =5.8.0 is left intact' );
More information about the Pkg-perl-cvs-commits
mailing list