#!/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;