[libconfig-model-dpkg-perl] 04/04: test Testsuite warning with debian/tests/control

[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 9d79f141adc540e4ac786f2e0186cef02dc68fa3
Author: Dominique Dumont <dod at debian.org>
Date:   Fri Oct 13 16:59:35 2017 +0200

    test Testsuite warning with debian/tests/control
---
 t/dpkg.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/t/dpkg.t b/t/dpkg.t
index bd661e0..049c5e0 100644
--- a/t/dpkg.t
+++ b/t/dpkg.t
@@ -20,7 +20,7 @@ if ( $@ ) {
     plan skip_all => "AptPkg::Config is not installed";
 }
 elsif ( -r '/etc/debian_version' ) {
-    plan tests => 39;
+    plan tests => 40;
 }
 else {
     plan skip_all => "Not a Debian system";
@@ -151,6 +151,15 @@ $root->grab('control source Testsuite')->apply_fixes;
 is($root->grab_value("control source Testsuite"), "autopkgtest-pkg-ruby",
     "check invalid Testsuite is replaced with team flavour");
 
+# check that undef Testsuite does not trigger a warning if debian/test/control is present
+# see #876856
+my $tsc = $wr_root->child('debian/tests/control');
+$tsc->parent->mkpath;
+$tsc->spew("blah-blah");
+warning_is {
+    $root->load("control source Testsuite~");
+} undef, 'check that undefined Testsuite does not warn for random maintainer ';
+
 my $lic_text = $root->grab(steps => "copyright License:FooBar text", check => 'no');
 is($lic_text->fetch, undef, "test unknown lic text") ;
 

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