lighttpd 1.4.x
https://www.lighttpd.net/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
482 B
20 lines
482 B
#! /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);
|
|
|