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