summaryrefslogtreecommitdiff
path: root/data/lighttpd/lighttpd-1.4.53/tests/run-tests.pl
diff options
context:
space:
mode:
Diffstat (limited to 'data/lighttpd/lighttpd-1.4.53/tests/run-tests.pl')
-rwxr-xr-xdata/lighttpd/lighttpd-1.4.53/tests/run-tests.pl20
1 files changed, 20 insertions, 0 deletions
diff --git a/data/lighttpd/lighttpd-1.4.53/tests/run-tests.pl b/data/lighttpd/lighttpd-1.4.53/tests/run-tests.pl
new file mode 100755
index 000000000..6136eac5b
--- /dev/null
+++ b/data/lighttpd/lighttpd-1.4.53/tests/run-tests.pl
@@ -0,0 +1,20 @@
+#! /usr/bin/env perl
+
+use strict;
+
+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$/) {
+ next if ($tests ne '' and $tests !~ /(^|\s+)$1(\s+|$)/);
+ push @fs, $srcdir.'/'.$f;
+ }
+}
+closedir DIR;
+runtests (sort @fs);