diff options
author | Stefan Bühler <stbuehler@web.de> | 2008-08-02 16:24:33 +0000 |
---|---|---|
committer | Stefan Bühler <stbuehler@web.de> | 2008-08-02 16:24:33 +0000 |
commit | 3cb2c1c39c7e4aa091514580fef0d4cec763bc86 (patch) | |
tree | cac3208feaf32e777c729e39394faf6ac7a3d011 /tests | |
parent | 5547928112323096908bb48bd98437633985bbd8 (diff) | |
download | lighttpd-git-3cb2c1c39c7e4aa091514580fef0d4cec763bc86.tar.gz |
[tests] Added env var TESTS to select only a subset of tests
git-svn-id: svn://svn.lighttpd.net/lighttpd/branches/lighttpd-1.4.x@2279 152afb58-edef-0310-8abb-c4023f1b3aa9
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/run-tests.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/run-tests.pl b/tests/run-tests.pl index 818f1c20..54cf7bf7 100755 --- a/tests/run-tests.pl +++ b/tests/run-tests.pl @@ -3,17 +3,18 @@ use strict; use Test::Harness qw(&runtests $verbose); -$verbose = (defined $ENV{'VERBOSE'} ? $ENV{'VERBOSE'} : 0);; +$verbose = (defined $ENV{'VERBOSE'} ? $ENV{'VERBOSE'} : 0); +my $tests = (defined $ENV{'TESTS'} ? $ENV{'TESTS'} : ''); 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; - |