From 3cb2c1c39c7e4aa091514580fef0d4cec763bc86 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Stefan=20B=C3=BChler?= Date: Sat, 2 Aug 2008 16:24:33 +0000 Subject: [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 --- tests/run-tests.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'tests') 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; - -- cgit v1.2.1