tests/run-tests.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#! /usr/bin/perl -w

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;