|
|
@@ -16,7 +16,7 @@
|
|
|
use strict;
|
|
|
use warnings;
|
|
|
|
|
|
-use Test::More tests => 43;
|
|
|
+use Test::More tests => 45;
|
|
|
use Dpkg::Arch qw(get_host_arch);
|
|
|
use Dpkg::Version;
|
|
|
|
|
|
@@ -56,11 +56,11 @@ is($dep_or2->implies($dep_or1), undef, 'Implication between OR 2/2');
|
|
|
|
|
|
my $dep_ma_any = deps_parse('libcairo2:any');
|
|
|
my $dep_ma_native = deps_parse('libcairo2');
|
|
|
-#my $dep_ma_native2 = deps_parse('libcairo2:native');
|
|
|
+my $dep_ma_native2 = deps_parse('libcairo2:native', build_dep => 1);
|
|
|
is($dep_ma_native->implies($dep_ma_any), 1, 'foo -> foo:any');
|
|
|
-#is($dep_ma_native2->implies($dep_ma_any), 1, 'foo:native -> foo:any');
|
|
|
+is($dep_ma_native2->implies($dep_ma_any), 1, 'foo:native -> foo:any');
|
|
|
is($dep_ma_any->implies($dep_ma_native), undef, 'foo:any !-> foo');
|
|
|
-#is($dep_ma_any->implies($dep_ma_native2), undef, 'foo:any !-> foo:native');
|
|
|
+is($dep_ma_any->implies($dep_ma_native2), undef, 'foo:any !-> foo:native');
|
|
|
|
|
|
my $field_arch = 'libc6 (>= 2.5) [!alpha !hurd-i386], libc6.1 [alpha], libc0.1 [hurd-i386]';
|
|
|
my $dep_i386 = deps_parse($field_arch, reduce_arch => 1, host_arch => 'i386');
|