Return to run-tests.pl CVS log

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

Initial revision

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