Return to run-tests.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests

Annotation of embedaddon/lighttpd/tests/run-tests.pl, revision 1.1.1.1

1.1       misho       1: #! /usr/bin/env perl
                      2: 
                      3: use strict;
                      4: 
                      5: use Test::Harness qw(&runtests $verbose);
                      6: $verbose = (defined $ENV{'VERBOSE'} ? $ENV{'VERBOSE'} : 0);
                      7: my $tests = (defined $ENV{'RUNTESTS'} ? $ENV{'RUNTESTS'} : '');
                      8: 
                      9: my $srcdir = (defined $ENV{'srcdir'} ? $ENV{'srcdir'} : '.');
                     10: 
                     11: opendir DIR, $srcdir;
                     12: my (@fs, $f);
                     13: while ($f = readdir(DIR)) {
                     14:        if ($f =~ /^(.*)\.t$/) {
                     15:                next if ($tests ne '' and $tests !~ /(^|\s+)$1(\s+|$)/);
                     16:                push @fs, $srcdir.'/'.$f;
                     17:        }
                     18: }
                     19: closedir DIR;
                     20: runtests (sort @fs);