tests/run-tests.pl

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