[pkg-perl-tools] 03/09: use.t: support a whitelist regexp in d/t/p/use-whitelist

[Niko Tyni]

This is an automated email from the git hooks/post-receive script.

ntyni pushed a commit to branch ntyni/autopkgtest
in repository pkg-perl-tools.

commit 906eb0e740dd309b9c7c7a76ed94c0050406940b
Author: Niko Tyni <ntyni at debian.org>
Date:   Sun Nov 27 21:26:04 2016 +0200

    use.t: support a whitelist regexp in d/t/p/use-whitelist
    
    Closes: #845771
---
 autopkgtest/README.autopkgtest           |  3 +++
 autopkgtest/scripts/runtime-deps.d/use.t | 12 +++++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/autopkgtest/README.autopkgtest b/autopkgtest/README.autopkgtest
index 5e12b91..63677d2 100644
--- a/autopkgtest/README.autopkgtest
+++ b/autopkgtest/README.autopkgtest
@@ -42,6 +42,9 @@ If the runtime-deps.d/use.t test fails to get the main module of your
 package right, you can customize that by putting the right name in
 'debian/tests/pkg-perl/use-name'.
 
+If a module intentionally produces output when used, you can whitelist
+that output as a regexp in 'debian/tests/pkg-perl/use-whitelist'.
+
 If there are just a few modules that fail syntax.t, you can ignore those
 by adding them to 'debian/tests/pkg-perl/syntax-skip'. The lines are
 matched as fixed substrings (not regular expressions.) Empty lines and
diff --git a/autopkgtest/scripts/runtime-deps.d/use.t b/autopkgtest/scripts/runtime-deps.d/use.t
index e34f3a5..b1a20b5 100755
--- a/autopkgtest/scripts/runtime-deps.d/use.t
+++ b/autopkgtest/scripts/runtime-deps.d/use.t
@@ -72,8 +72,17 @@ sub getmeta {
     return $module;
 }
 
+sub getwhitelist {
+    my $whitelist = 'debian/tests/pkg-perl/use-whitelist';
+    my $ret;
+    $ret = read_conffile($whitelist) if ( -f $whitelist );
+    $ret;
+}
+
 my @modules = @ARGV ? @ARGV : getmodule();
 
+my $whitelist = getwhitelist();
+
 usage() if !@modules;
 
 plan tests => 2 * scalar @modules;
@@ -83,5 +92,6 @@ for my $mod (@modules) {
     my @out = qx($cmd);
     note(@out) if @out;
     ok(!$?, "$cmd exited successfully");
-    ok(!@out, "$cmd produced no output");
+    @out = grep { !/$whitelist/ } @out if defined $whitelist;
+    ok(!@out, "$cmd produced no (non-whitelisted) output");
 }

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