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     ! 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);