Imported Upstream version 1.4.32

1 files changed, 6 insertions, 5 deletions

diff --git a/tests/run-tests.pl b/tests/run-tests.pl
index 44e76a9..6136eac 100755
--- a/tests/run-tests.pl
+++ b/tests/run-tests.pl
@@ -2,18 +2,19 @@
 
 use strict;
 
-use Test::Harness qw(&runtests $verbose); 
-$verbose=0; 
+use Test::Harness qw(&runtests $verbose);
+$verbose = (defined $ENV{'VERBOSE'} ? $ENV{'VERBOSE'} : 0);
+my $tests = (defined $ENV{'RUNTESTS'} ? $ENV{'RUNTESTS'} : '');
 
 my $srcdir = (defined $ENV{'srcdir'} ? $ENV{'srcdir'} : '.');
 
 opendir DIR, $srcdir;
 my (@fs, $f);
 while ($f = readdir(DIR)) {
-	if ($f =~ /\.t$/) {
+	if ($f =~ /^(.*)\.t$/) {
+		next if ($tests ne '' and $tests !~ /(^|\s+)$1(\s+|$)/);
 		push @fs, $srcdir.'/'.$f;
 	}
 }
 closedir DIR;
-runtests @fs;
-
+runtests (sort @fs);