1 files changed, 64 insertions, 0 deletions
diff --git a/t/scripts/Lintian/Relation/04-multiarch.t b/t/scripts/Lintian/Relation/04-multiarch.t
new file mode 100755
index 0000000..7f18b6c
--- /dev/null
+++ b/t/scripts/Lintian/Relation/04-multiarch.t
@@ -0,0 +1,64 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 12;
+
+use Lintian::Relation;
+
+my $orig = 'pkgA:any, pkgB, pkgC:i386';
+my $relation = Lintian::Relation->new->load($orig);
+
+ok($relation->satisfies('pkgA:any'),   'pkgA:any satisfies pkgA:any');
+
+ok($relation->satisfies('pkgB'),       'pkgB satisfies pkgB');
+
+ok(!$relation->satisfies('pkgC'),      'pkgC:i386 does not satisfy pkgC');
+ok($relation->satisfies('pkgC:i386'),  'pkgC:i386 satisfies pkgC:i386');
+
+ok($relation->satisfies('pkgB:any'),   'pkgB satisfies pkgB:any');
+
+ok(!$relation->satisfies('pkgA'),      'pkgA:any does not satisfy pkgA');
+
+ok(!$relation->satisfies('pkgC:any'),  'pkgC:i386 does not satisfy pkgC:any');
+
+is($relation->to_string, $orig,      'reconstituted eq original');
+
+my @redundancies1
+  = Lintian::Relation->new->load('pkgD, pkgD:any')->redundancies;
+is_deeply(
+    \@redundancies1,
+    [['pkgD', 'pkgD:any']],
+    'pkgD and pkgD:any are redundant'
+);
+
+TODO: {
+    local $TODO = ':X => :Y cases are not implemented (in general)';
+
+    my @redundancies2
+      = Lintian::Relation->new->load('pkgD:i386, pkgD:any')->redundancies;
+    is_deeply(
+        \@redundancies2,
+        [['pkgD:i386', 'pkgD:any']],
+        'pkgD:i386 and pkgD:any are redundant'
+    );
+}
+
+my @redundancies3
+  = Lintian::Relation->new->load('pkgD:i386, pkgD')->redundancies;
+is_deeply(\@redundancies3, [],'pkgD:i386 and pkgD are not redundant');
+
+my @redundancies4
+  = Lintian::Relation->new->load('pkgD:i386, pkgD:i386 (>= 1.0)')
+  ->redundancies;
+is_deeply(
+    \@redundancies4,
+    [['pkgD:i386', 'pkgD:i386 (>= 1.0)']],
+    'Can detect pkgD:i386 redundancies'
+);
+
+# Local Variables:
+# indent-tabs-mode: nil
+# cperl-indent-level: 4
+# End:
+# vim: syntax=perl sw=4 sts=4 sr et