[libconfig-model-dpkg-perl] 03/09: scan-copyright test: allow to pass a parameter to filter test...

[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 7a064e0e949e36424609733cebb9e310c9a89b14
Author: Dominique Dumont <dod at debian.org>
Date:   Mon May 4 21:19:33 2015 +0200

    scan-copyright test: allow to pass a parameter to filter test...
    
    e.g perl t/scan-copyright.t pan
---
 t/scanner/scan-copyright.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/scanner/scan-copyright.t b/t/scanner/scan-copyright.t
index 335660e..13b8649 100644
--- a/t/scanner/scan-copyright.t
+++ b/t/scanner/scan-copyright.t
@@ -15,6 +15,7 @@ my $temp = Path::Tiny->tempfile ;
 
 foreach my $in ($dir->children(qr/\.in$/)) {
     my $test_name = $in->basename('.in');
+    next if @ARGV and not grep { $test_name =~ /$_/; } @ARGV;
     my $out_name =  $test_name. '.out';
     my $out = $dir->child($out_name);
     print_copyright( in => $in, out => $temp );

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