1#! /usr/bin/env perl 2 3use strict; 4 5use Test::Harness qw(&runtests $verbose); 6$verbose = (defined $ENV{'VERBOSE'} ? $ENV{'VERBOSE'} : 0); 7my $tests = (defined $ENV{'RUNTESTS'} ? $ENV{'RUNTESTS'} : ''); 8 9my $srcdir = (defined $ENV{'srcdir'} ? $ENV{'srcdir'} : '.'); 10 11opendir DIR, $srcdir; 12my (@fs, $f); 13while ($f = readdir(DIR)) { 14 if ($f =~ /^(.*)\.t$/) { 15 next if ($tests ne '' and $tests !~ /(^|\s+)$1(\s+|$)/); 16 push @fs, $srcdir.'/'.$f; 17 } 18} 19closedir DIR; 20runtests (sort @fs); 21