[SCM] Debian package checker branch, master, updated. 2.5.0-rc2-126-g80aa710

["Niels Thykier" <niels@thykier.net>]

The following commit has been merged in the master branch:
commit 80aa7109c157fb762118910a6a2914d83d3f6151
Author: Niels Thykier <niels@thykier.net>
Date:   Thu Apr 14 13:44:23 2011 +0200

    Added a small Lintian::Relation test suite

diff --git a/t/scripts/Lintian/Relation/01-basic.t b/t/scripts/Lintian/Relation/01-basic.t
new file mode 100644
index 0000000..baed1a5
--- /dev/null
+++ b/t/scripts/Lintian/Relation/01-basic.t
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+BEGIN { use_ok('Lintian::Relation'); }
+
+my $relation = Lintian::Relation->new('pkgA, altA | altB');
+
+ok($relation->implies('pkgA'),   'Implies');
+ok(!$relation->implies('altA'),  'Implies alt');
+
diff --git a/t/scripts/Lintian/Relation/02-architecture.t b/t/scripts/Lintian/Relation/02-architecture.t
new file mode 100644
index 0000000..b344bb8
--- /dev/null
+++ b/t/scripts/Lintian/Relation/02-architecture.t
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+use Lintian::Relation;
+
+my $relation = Lintian::Relation->new_noarch('pkgA [i386], pkgB [amd64]');
+
+ok($relation->implies('pkgA'),  'Implies arch alt [i386]');
+ok($relation->implies('pkgB'),  'Implies arch alt [amd64]');
diff --git a/t/scripts/Lintian/Relation/03-duplicates.t b/t/scripts/Lintian/Relation/03-duplicates.t
new file mode 100644
index 0000000..6a7a69a
--- /dev/null
+++ b/t/scripts/Lintian/Relation/03-duplicates.t
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+use Lintian::Relation;
+
+my $relationA = Lintian::Relation->new_noarch('pkgA, pkgB, pkgC, pkgA | pkgD');
+my $relationB = Lintian::Relation->new_noarch('pkgA, pkgB, pkgC, pkgD | pkgE');
+
+is_deeply($relationA->duplicates, (['pkgA', 'pkgA | pkgD']), 'Duplicates');
+is($relationB->duplicates, 0, 'No duplicates');
+
diff --git a/t/scripts/Lintian/Relation/04-multiarch.t b/t/scripts/Lintian/Relation/04-multiarch.t
new file mode 100644
index 0000000..23675b3
--- /dev/null
+++ b/t/scripts/Lintian/Relation/04-multiarch.t
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+use Lintian::Relation;
+
+my $relation = Lintian::Relation->new('pkgA:i386');
+
+ok($relation->implies('pkgA:i386'),   'Same arch implies');
+ok($relation->implies('pkgA'),        'Archless implies');

-- 
Debian package checker