[libconfig-model-dpkg-perl] 06/06: added TestSuite parameter (Closes: #752149)

[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 81d528fb05aeff5bfb5b8be2e59f6e41cffd1ec1
Author: Dominique Dumont <dod at debian.org>
Date:   Fri Jul 18 21:25:18 2014 +0200

    added TestSuite parameter (Closes: #752149)
---
 lib/Config/Model/models/Dpkg/Control/Source.pl | 20 ++++++++++++++++++++
 t/model_tests.d/dpkg-control-test-conf.pl      |  4 +++-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/lib/Config/Model/models/Dpkg/Control/Source.pl b/lib/Config/Model/models/Dpkg/Control/Source.pl
index 15dc7b1..7ad7552 100644
--- a/lib/Config/Model/models/Dpkg/Control/Source.pl
+++ b/lib/Config/Model/models/Dpkg/Control/Source.pl
@@ -79,6 +79,26 @@ area/section if the package is in the contrib or non-free archive areas.
       'XS-Testsuite',
       {
         'description' => 'Enable a testsuite to be used with this package. Currently only the \'autopkgtest\' name is allowed. For more details see L<README.package-tests|http://anonscm.debian.org/gitweb/?p=autopkgtest/autopkgtest.git;f=doc/README.package-tests;hb=HEAD>',
+        'status' => 'deprecated',
+        'summary' => 'name of the non regression test suite',
+        'type' => 'leaf',
+        'value_type' => 'uniline',
+        'warn_unless_match' => {
+          '^autopkgtest$' => {
+            'fix' => '$_ = undef; # restore default value',
+            'msg' => 'Currently, only "autopkgtest" is supported'
+          }
+        }
+      },
+      'Testsuite',
+      {
+        'description' => 'Enable a testsuite to be used with this package. Currently only the \'autopkgtest\' name is allowed. For more details see L<README.package-tests|http://anonscm.debian.org/gitweb/?p=autopkgtest/autopkgtest.git;f=doc/README.package-tests;hb=HEAD>',
+        'migrate_from' => {
+          'formula' => '$xs_testsuite',
+          'variables' => {
+            'xs_testsuite' => '- XS-Testsuite'
+          }
+        },
         'summary' => 'name of the non regression test suite',
         'type' => 'leaf',
         'value_type' => 'uniline',
diff --git a/t/model_tests.d/dpkg-control-test-conf.pl b/t/model_tests.d/dpkg-control-test-conf.pl
index 3e54054..1b6d748 100644
--- a/t/model_tests.d/dpkg-control-test-conf.pl
+++ b/t/model_tests.d/dpkg-control-test-conf.pl
@@ -165,8 +165,10 @@ providing the following file:
     {
         # test for XS-Testsuite field
         name => 'xs-testsuite',
+        load_warnings => [ qr/deprecated/  ],
+        apply_fix => 1,
         check => {
-            'source XS-Testsuite' => 'autopkgtest',
+            'source Testsuite' => 'autopkgtest',
         },
     },
     {

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