[libconfig-model-dpkg-perl] 03/04: accept missing Testsuite when debian/tests/control exists (Closes: #876856)

[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 7cc1e3ace3eff4490a840a98b40f9320186b6c57
Author: Dominique Dumont <dod at debian.org>
Date:   Fri Oct 13 16:57:50 2017 +0200

    accept missing Testsuite when debian/tests/control exists (Closes: #876856)
    
    This requires Config::Model 2.113 because file() function is used in test
---
 lib/Config/Model/models/Dpkg/Control/Source.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Config/Model/models/Dpkg/Control/Source.pl b/lib/Config/Model/models/Dpkg/Control/Source.pl
index b6864e8..19d54da 100644
--- a/lib/Config/Model/models/Dpkg/Control/Source.pl
+++ b/lib/Config/Model/models/Dpkg/Control/Source.pl
@@ -148,7 +148,7 @@ area/section if the package is in the contrib or non-free archive areas.
           'defined-test' => {
             'code' => 'my $m = $self->grab_value(\'- Maintainer\');
 my ($team) = ( $m =~ /(pkg-(?:perl|ruby|go))/ );
-not defined $team or defined $_;',
+not defined $team or defined $_ or file(\'debian/tests/control\')->exists;',
             'fix' => 'my $m = $self->grab_value(\'- Maintainer\');
 my ($str) = ($m =~ /pkg-(perl|ruby|go)/);
 $_ = $str ? \'autopkgtest-pkg-\'.$str : undef;',

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