[Pkg-privacy-commits] [msva-perl] 294/356: Allow list of directories on command line for unit tests

[Ximin Luo]

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

infinity0 pushed a commit to branch debian
in repository msva-perl.

commit 9382eaa46824e05a7136cf9db4c906c79af3d454
Author: David Bremner <bremner at debian.org>
Date:   Sun Mar 6 17:49:26 2011 -0400

    Allow list of directories on command line for unit tests
---
 unit-tests/run-tests.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/unit-tests/run-tests.pl b/unit-tests/run-tests.pl
index e8305ce..3d23289 100644
--- a/unit-tests/run-tests.pl
+++ b/unit-tests/run-tests.pl
@@ -7,6 +7,7 @@ use FindBin;
 my $BINDIR;
 BEGIN { $BINDIR = $FindBin::Bin; }
 
+my @dirs = scalar(@ARGV) > 0 ? @ARGV : ($BINDIR);
 
 my @tests;
 
@@ -14,7 +15,7 @@ sub wanted {
   push (@tests,$File::Find::name) if -f && m/.*\.t$/;
 }
 
-find(\&wanted, $BINDIR);
+find(\&wanted, @dirs);
 
 print STDERR "found ",scalar(@tests)," tests\n";
 

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