Allow list of directories on command line for unit tests

diff --git a/unit-tests/run-tests.pl b/unit-tests/run-tests.pl
index e8305ce83bc4584468cfd0cae0dffc7bdb163389..3d23289c7f2c0b14aa073f4cf039e3a8d3c61383 100644 (file)
--- 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";