[libconfig-model-dpkg-perl] 02/02: test for Perl license special treatment

[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 78776f32534472f02a5f4936c3536bcc081cd21e
Author: Dominique Dumont <dod at debian.org>
Date:   Thu Jul 13 20:28:21 2017 +0200

    test  for Perl license special treatment
---
 t/model_tests.d/dpkg-copyright-test-conf.pl | 10 ++++++++++
 t/scanner/examples/libtk-fontdialog.in      |  9 +++++++++
 t/scanner/examples/libtk-fontdialog.out     |  4 ++++
 3 files changed, 23 insertions(+)

diff --git a/t/model_tests.d/dpkg-copyright-test-conf.pl b/t/model_tests.d/dpkg-copyright-test-conf.pl
index 6d597c7..6b80875 100644
--- a/t/model_tests.d/dpkg-copyright-test-conf.pl
+++ b/t/model_tests.d/dpkg-copyright-test-conf.pl
@@ -351,6 +351,16 @@ in ‘/usr/share/common-licenses/GPL-1’.",
 #        load_warnings => [ (qr/deprecated/) x 3 ],
 
     },
+    {
+        name => 'new-perl-module',
+        update => { in => path('t/scanner/examples/libtk-fontdialog.in') , quiet => 1 },
+        no_warnings => 1,
+        check => {
+            'Files:"*" Copyright' => qr/Slaven/,
+            # check that Perl license is replaced by Artistic or GPL-1+
+            'Files:"*" License short_name' => 'Artistic or GPL-1+',
+        },
+    }
 );
 
 1;
diff --git a/t/scanner/examples/libtk-fontdialog.in b/t/scanner/examples/libtk-fontdialog.in
new file mode 100644
index 0000000..919cd87
--- /dev/null
+++ b/t/scanner/examples/libtk-fontdialog.in
@@ -0,0 +1,9 @@
+./Changes	UNKNOWN	*No copyright*
+./MANIFEST	UNKNOWN	*No copyright*
+./MANIFEST.SKIP	UNKNOWN	*No copyright*
+./META.json	UNKNOWN	*No copyright*
+./META.yml	UNKNOWN	*No copyright*
+./Makefile.PL	UNKNOWN	*No copyright*
+./README	UNKNOWN	*No copyright*
+./t/00-basic.t	UNKNOWN	*No copyright*
+./lib/Tk/FontDialog.pm	Perl	1998-1999, 2003-2005, 2010-2011, 2013, 2017 Slaven Rezic.
diff --git a/t/scanner/examples/libtk-fontdialog.out b/t/scanner/examples/libtk-fontdialog.out
new file mode 100644
index 0000000..5b3fe54
--- /dev/null
+++ b/t/scanner/examples/libtk-fontdialog.out
@@ -0,0 +1,4 @@
+Files: *
+Copyright: 1998, 1999, 2003-2005, 2010, 2011, 2013, 2017, Slaven Rezic.
+License: Artistic or GPL-1+
+

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