r27345 - /trunk/dh-make-perl/t/AptContents.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Nov 27 09:51:39 2008
New Revision: 27345

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27345
Log:
test the dist parameter

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=27345&op=diff
==============================================================================
--- trunk/dh-make-perl/t/AptContents.t (original)
+++ trunk/dh-make-perl/t/AptContents.t Thu Nov 27 09:51:39 2008
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 12;
+use Test::More tests => 13;
 
 use FindBin qw($Bin);
 use File::Touch qw(touch);
@@ -31,6 +31,8 @@
 
 is( $apt_contents, undef, 'should not create with no contents' );
 
+$apt_contents = instance( dist => 'non-existent' );
+is( $apt_contents, undef, 'should not create when no dists found' );
 
 $apt_contents = instance();