diff options
author | MCApollo <34170230+MCApollo@users.noreply.github.com> | 2019-04-29 17:53:00 +0000 |
---|---|---|
committer | MCApollo <34170230+MCApollo@users.noreply.github.com> | 2019-04-29 17:53:00 +0000 |
commit | 59f5fd20e2f59ae186d5a461aef7782dd55e4e7b (patch) | |
tree | 10475faf0b6dcb812b64da679f4ae8ff01c45874 /data/lighttpd/lighttpd-1.4.53/tests/run-tests.pl | |
parent | f06e297cd175cca39745f6d1970225ae88aa68f1 (diff) |
Updated lighttpd.
Diffstat (limited to 'data/lighttpd/lighttpd-1.4.53/tests/run-tests.pl')
-rwxr-xr-x | data/lighttpd/lighttpd-1.4.53/tests/run-tests.pl | 20 |
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); |