r27365 - /trunk/dh-make-perl/t/AptContents.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Fri Nov 28 07:23:55 UTC 2008
Author: dmn
Date: Fri Nov 28 07:23:53 2008
New Revision: 27365
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27365
Log:
add tests about conversion of source lines into file names
Modified:
trunk/dh-make-perl/t/AptContents.t
Modified: trunk/dh-make-perl/t/AptContents.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/AptContents.t?rev=27365&op=diff
==============================================================================
--- trunk/dh-make-perl/t/AptContents.t (original)
+++ trunk/dh-make-perl/t/AptContents.t Fri Nov 28 07:23:53 2008
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 13;
+use Test::More tests => 18;
use FindBin qw($Bin);
use File::Touch qw(touch);
@@ -34,6 +34,41 @@
is( $apt_contents->cache, undef, 'but should contain no cache' );
is( $apt_contents->cache, undef, 'should have no cache when no dists found' );
+
+is(
+ $apt_contents->repo_source_to_contents_path(
+ 'deb http://debian.cihar.com/ unstable main contrib non-free'),
+ 'debian.cihar.com_dists_unstable',
+ 'source line conversion 1',
+);
+
+is(
+ $apt_contents->repo_source_to_contents_path(
+ 'deb http://kernel-archive.buildserver.net/debian-kernel trunk main'),
+ 'kernel-archive.buildserver.net_debian-kernel_dists_trunk',
+ 'source line conversion 2',
+);
+
+is(
+ $apt_contents->repo_source_to_contents_path(
+ 'deb http://www.debian-multimedia.org stable main'),
+ 'www.debian-multimedia.org_dists_stable',
+ 'source line conversion 3',
+);
+
+is(
+ $apt_contents->repo_source_to_contents_path(
+ 'deb http://ftp.debian-unofficial.org/debian testing main contrib non-free restricted'),
+ 'ftp.debian-unofficial.org_debian_dists_testing',
+ 'source line conversion 4',
+);
+
+is(
+ $apt_contents->repo_source_to_contents_path(
+ 'deb http://ftp.de.debian.org/debian/ unstable main contrib non-free'),
+ 'ftp.de.debian.org_debian_dists_unstable',
+ 'source line conversion 5',
+);
$apt_contents = instance();
More information about the Pkg-perl-cvs-commits
mailing list