|
Packit |
e6c8bb |
# $Id: 01-resolver-env.t 1412 2015-10-12 08:19:51Z willem $ -*-perl-*-
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
use strict;
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
use Test::More tests => 10;
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
local $ENV{'RES_NAMESERVERS'} = '10.0.3.128 10.0.4.128';
|
|
Packit |
e6c8bb |
local $ENV{'RES_SEARCHLIST'} = 'net-dns.org lib.net-dns.org';
|
|
Packit |
e6c8bb |
local $ENV{'LOCALDOMAIN'} = 'net-dns.org';
|
|
Packit |
e6c8bb |
local $ENV{'RES_OPTIONS'} = 'retrans:3 retry:2 debug bogus';
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
use Net::DNS;
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
my $res = Net::DNS::Resolver->new;
|
|
Packit |
e6c8bb |
ok( $res->isa('Net::DNS::Resolver'), 'new() created object' );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
is( $res->domain, 'net-dns.org', 'domain works' );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
my @search = $res->searchlist;
|
|
Packit |
e6c8bb |
is( $search[0], 'net-dns.org', 'searchlist correct' );
|
|
Packit |
e6c8bb |
is( $search[1], 'lib.net-dns.org', 'searchlist correct' );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
my @servers = $res->nameservers;
|
|
Packit |
e6c8bb |
ok( scalar(@servers), "nameservers() works" );
|
|
Packit |
e6c8bb |
is( $servers[0], '10.0.3.128', 'nameservers list correct' );
|
|
Packit |
e6c8bb |
is( $servers[1], '10.0.4.128', 'nameservers list correct' );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
is( $res->retrans, 3, 'retrans works' );
|
|
Packit |
e6c8bb |
is( $res->retry, 2, 'retry works' );
|
|
Packit |
e6c8bb |
is( $res->debug, 1, 'debug() works' );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
exit;
|
|
Packit |
e6c8bb |
|