#!/usr/bin/perl
# This script will run Test::Harness on the tests found under the 't'
# directory.
unless (-d 'Resolv') {
chdir 't' or die "can't chdir: $!";
foreach (@INC) {
$_ = "../$_" unless m,^/,;
}
}
unshift(@INC, '../blib/lib', '../blib/arch', '..');
$Test::Harness::verbose = shift if $ARGV[0] =~ /^\d+$/ || $ARGV[0] eq '-v';
if (@ARGV) {
for (@ARGV) {
if (-d $_) {
push(@tests, <$_/*.t>);
} else {
$_ .= ".t" unless /\.t$/;
push(@tests, $_);
}
}
} else {
@tests = (<Resolv/*.t>);
}
runtests @tests;