#!/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'
,
'..'
);
use
Test::Harness;
$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
;