ps-watcher/tests/driver

49 lines
790 B
Perl
Executable file

#!/usr/bin/perl -w
#$Id: driver,v 1.1 2000/03/27 01:53:24 rocky Exp $
use strict;
use File::Basename;
my $program = basename($0); # Who am I today, anyway?
sub usage {
print "
usage:
$program [test1 ... ]
$program --help
Runs regresion tests (via Test::Harness).
If no tests are specified all tests that match *.t in the
test directory are run.
$program --help prints this help.
";
exit 100;
}
use Test::Harness qw(&runtests $verbose);
my $setup = 0;
process_options();
@ARGV = glob("*.t") if !@ARGV;
runtests @ARGV;
exit 0;
# The bane of programming.
sub process_options {
use Getopt::Long;
$Getopt::Long::autoabbrev = 1;
my $help = 0;
my $result = &GetOptions
(
'help' => \$help,
);
usage unless $result;
usage if $help;
}