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.
20 lines
302 B
Perl
20 lines
302 B
Perl
#! /usr/bin/env perl
|
|
|
|
use strict;
|
|
|
|
use Test::Harness qw(&runtests $verbose);
|
|
$verbose=0;
|
|
|
|
my $srcdir = (defined $ENV{'srcdir'} ? $ENV{'srcdir'} : '.');
|
|
|
|
opendir DIR, $srcdir;
|
|
my (@fs, $f);
|
|
while ($f = readdir(DIR)) {
|
|
if ($f =~ /\.t$/) {
|
|
push @fs, $srcdir.'/'.$f;
|
|
}
|
|
}
|
|
closedir DIR;
|
|
runtests @fs;
|
|
|