1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 11;
use Test::Exception;
BEGIN {
use_ok('Debian::Control::FromCPAN');
use_ok('Debian::Dependency');
};
my $ctl = 'Debian::Control::FromCPAN';
my $dep = 'Debian::Dependency';
dies_ok {
$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 (>= 5.10)') ), 'perl (>= 5.10)', 'perl-modules is converted to perl' );
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'), 1 ), 'perl', 'perl is not build-essential' );
is( $ctl->prune_perl_dep( $dep->new('perl-modules'), 1 ), 'perl', 'perl-modules is not build-essential' );
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)') ), 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' );
|
