[libconfig-model-dpkg-perl] 02/05: Dpkg COntrol Source model: improve Testsuite handling

[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 09f806c68b4082983c110b6e478e94741f7b7a00
Author: Dominique Dumont <dod at debian.org>
Date:   Wed Oct 29 19:04:09 2014 +0100

    Dpkg COntrol Source model: improve Testsuite handling
---
 lib/Config/Model/models/Dpkg/Control/Source.pl | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lib/Config/Model/models/Dpkg/Control/Source.pl b/lib/Config/Model/models/Dpkg/Control/Source.pl
index 20a3c9c..eea23a4 100644
--- a/lib/Config/Model/models/Dpkg/Control/Source.pl
+++ b/lib/Config/Model/models/Dpkg/Control/Source.pl
@@ -94,7 +94,9 @@ area/section if the package is in the contrib or non-free archive areas.
       {
         'compute' => {
           'allow_override' => '1',
-          'formula' => '$team =~ /pkg-perl/ ? \'autopkgtest-pkg-perl\' : undef;',
+          'formula' => 'my ($str) = ($team =~ /pkg-(perl|ruby)/);
+$str ? \'autopkgtest-pkg-\'.$str : undef;
+',
           'use_eval' => '1',
           'variables' => {
             'team' => '- Maintainer'
@@ -110,6 +112,15 @@ area/section if the package is in the contrib or non-free archive areas.
         'summary' => 'name of the non regression test suite',
         'type' => 'leaf',
         'value_type' => 'uniline',
+        'warn_unless' => {
+          'team-test' => {
+            'code' => 'my $m = $self->grab_value(\'- Maintainer\');
+my ($team) = ( $m =~ /(pkg-(?:perl|ruby))/ );
+defined and $_ eq \'autopkgtest-pkg-\'.$team ;',
+            'fix' => '$_ = undef; # restore default value',
+            'msg' => 'Missing pkg-perl team Testsuite value.'
+          }
+        },
         'warn_unless_match' => {
           '^autopkgtest(-pkg-(perl|ruby))?$' => {
             'fix' => '$_ = undef; # restore default value',

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