r57354 - in /trunk/dh-make-perl: Changes TODO t/Control.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon May  3 04:45:57 2010
New Revision: 57354

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57354
Log:
Control.t: ensure that dependency fields are wrapped properly

Modified:
    trunk/dh-make-perl/Changes
    trunk/dh-make-perl/TODO
    trunk/dh-make-perl/t/Control.t

Modified: trunk/dh-make-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/Changes?rev=57354&op=diff
==============================================================================
--- trunk/dh-make-perl/Changes (original)
+++ trunk/dh-make-perl/Changes Mon May  3 04:45:57 2010
@@ -6,6 +6,8 @@
         DhMakePerl-VERSION.tar.gz and dh-make-perl_VERSION.orig.tar.gz files
 
     My::Builder: streamline messages in the 'dist' and 'orig' actions
+
+    Control.t: ensure dependency fields are wrapped properly
 
 0.67
     POD: drop "--" in front of the commands.

Modified: trunk/dh-make-perl/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/TODO?rev=57354&op=diff
==============================================================================
--- trunk/dh-make-perl/TODO (original)
+++ trunk/dh-make-perl/TODO Mon May  3 04:45:57 2010
@@ -1,5 +1,4 @@
 * investigate using App::Cmd
-* ensure (with a test) that dependency lists are indented with one space
 * --refresh on MIME-Charset 1.007 can't detect the dist name and cries.
   May be similar to #525847
 * when ITP for the package is found, try to deduce short/long description from

Modified: trunk/dh-make-perl/t/Control.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/Control.t?rev=57354&op=diff
==============================================================================
--- trunk/dh-make-perl/t/Control.t (original)
+++ trunk/dh-make-perl/t/Control.t Mon May  3 04:45:57 2010
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 21;
+use Test::More tests => 22;
 use Test::Exception;
 use Test::Differences;
 
@@ -89,3 +89,17 @@
 is( $c->source->Build_Depends_Indep . '',
     'libtest-pod-coverage-perl, libtest-pod-perl, libuniversal-require-perl, perl'
 );
+
+# Test wrapping
+$b = Debian::Control::Stanza::Binary->new(
+    {
+        Package => "foo",
+        Depends => "libfoo-perl (>= 0.44839848), libbar-perl, libbaz-perl (>= 4.59454345345485), libtreshchotka-moo (>= 5.6), libmoo-more-java (>= 9.6544)",
+    },
+);
+is( "$b", <<EOF );
+Package: foo
+Depends: libfoo-perl (>= 0.44839848), libbar-perl,
+ libbaz-perl (>= 4.59454345345485), libtreshchotka-moo (>= 5.6),
+ libmoo-more-java (>= 9.6544)
+EOF