You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
469 B
Perl
21 lines
469 B
Perl
#! /usr/bin/env perl
|
|
|
|
use strict;
|
|
|
|
use Test::Harness qw(&runtests $verbose);
|
|
$verbose = (defined $ENV{'VERBOSE'} ? $ENV{'VERBOSE'} : 0);
|
|
my $tests = (defined $ENV{'TESTS'} ? $ENV{'TESTS'} : '');
|
|
|
|
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 @fs;
|