Преглед изворни кода

scripts/t: Enable and fix minimal :native arch-qualifier tests

Guillem Jover пре 11 година
родитељ
комит
6df7eb8f84
1 измењених фајлова са 4 додато и 4 уклоњено
  1. 4 4
      scripts/t/Dpkg_Deps.t

+ 4 - 4
scripts/t/Dpkg_Deps.t

@@ -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');