[libconfig-model-dpkg-perl] 13/33: fix pack_copyright test

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit 5c68b5a0efbadadfa0d7581fb18e859c58b80aba
Author: Dominique Dumont <dod at debian.org>
Date:   Thu Mar 26 18:34:26 2015 +0100

    fix pack_copyright test
---
 t/scanner/pack_copyright.t | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/t/scanner/pack_copyright.t b/t/scanner/pack_copyright.t
index 06c0542..7b19410 100644
--- a/t/scanner/pack_copyright.t
+++ b/t/scanner/pack_copyright.t
@@ -15,18 +15,19 @@ my @tests = (
         '2002-2006, Charles Kerr <charles at rebelbase.com>'
     ],
     [
-        '2011 Heinrich Müller <henmull at src.gnome.org> / 2002-2006 Charles Kerr <charles at rebelbase.com>',
-        "2011, Heinrich Müller <henmull\@src.gnome.org>\n  2002-2006, Charles Kerr <charles\@rebelbase.com>"
+        '2011 Heinrich Muller <henmull at src.gnome.org> / 2002-2006 Charles Kerr <charles at rebelbase.com>',
+        "2011, Heinrich Muller <henmull\@src.gnome.org>\n 2002-2006, Charles Kerr <charles\@rebelbase.com>"
     ],
     [
-        '2002-2006 Charles Kerr <charles at rebelbase.com> / 2002, 2003, 2004, 2005, 2007, 2008, 2010 Free Software / 2011 Heinrich Müller <henmull at src.gnome.org> / 2002 vjt (irssi project)',
-        "2011, Heinrich Müller <henmull\@src.gnome.org>\n  2002-2006, Charles Kerr <charles\@rebelbase.com>\n  2002-2005, 2007, 2008, 2010, Free Software\n  2002, vjt (irssi project)"
+        '2002-2006 Charles Kerr <charles at rebelbase.com> / 2002, 2003, 2004, 2005, 2007, 2008, 2010 Free Software / 2011 Heinrich Muller <henmull at src.gnome.org> / 2002 vjt (irssi project)',
+        "2011, Heinrich Muller <henmull\@src.gnome.org>\n 2002-2006, Charles Kerr <charles\@rebelbase.com>\n 2002-2005, 2007, 2008, 2010, Free Software\n 2002, vjt (irssi project)"
     ]
 );
 
 foreach my $t (@tests) {
     my ($in,$expect) = @$t;
-    is(Dpkg::Copyright::Scanner::__pack_copyright($in),$expect,"__pack_copyright '$in'");
+    my $label = length $in > 50 ? substr($in,0,50).'...' : $in ;
+    is(Dpkg::Copyright::Scanner::__pack_copyright($in),$expect,"__pack_copyright '$label'");
 }
 
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git