# $Id: 10-recurse.t,v 2.100 2003/12/13 01:37:06 ctriv Exp $
use Test::More;
use strict;
BEGIN {
if (-e 't/online.enabled') {
plan tests => 8;
} else {
plan skip_all => 'Online tests disabled.';
}
}
BEGIN { use_ok('Net::DNS::Resolver::Recurse'); }
my $res = Net::DNS::Resolver::Recurse->new;
# new() worked okay?
ok($res, 'new() works');
#$res->debug(1);
$res->udp_timeout(60);
# Hard code A.ROOT-SERVERS.NET hint
ok($res->hints("198.41.0.4"), "hints() set");
ok(%{ $res->{'hints'} }, 'sanity check worked');
my $packet;
# Try a domain that is a CNAME
$packet = $res->query_dorecursion("www.netscape.com.","A");
ok($packet, 'got a packet');
ok(scalar $packet->answer, 'answer has RRs');
# Try a big hairy one
undef $packet;
$packet = $res->query_dorecursion("www.rob.com.au.","A");
ok($packet, 'got a packet');
ok(scalar $packet->answer, 'anwer section had RRs');