1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
# $Id: 01-resolver-opt.t 616 2006-10-18 09:15:48Z olaf $
use Test::More tests => 60;
use strict;
use File::Spec;
BEGIN { use_ok('Net::DNS'); }
# .txt because this test will run under windows, unlike the other file
# configuration tests.
my $test_file = File::Spec->catfile('t', 'custom.txt');
my $res = Net::DNS::Resolver->new(config_file => $test_file);
ok($res, 'new() returned something');
isa_ok($res, 'Net::DNS::Resolver', 'new() returns an object of the correct class.');
ok(scalar $res->nameservers, 'nameservers() works');
my @servers = $res->nameservers;
is($servers[0], '10.0.1.42', 'Nameserver set correctly');
is($servers[1], '10.0.2.42', 'Nameserver set correctly');
my @search = $res->searchlist;
is($search[0], 'alt.net-dns.org', 'Search set correctly' );
is($search[1], 'ext.net-dns.org', 'Search set correctly' );
is($res->domain, 't2.net-dns.org', 'Local domain works' );
undef $res;
eval { $res = Net::DNS::Resolver->new(config_file => 'nosuch.txt'); };
ok($@, 'Error thrown trying to open non-existant file.');
ok(!$res, 'Net::DNS::Resolver->new returned undef');
#
# Check that we can set things in new()
#
undef $res;
my %test_config = (
nameservers => ['10.0.0.1', '10.0.0.2'],
port => 54,
srcaddr => '10.1.0.1',
srcport => 53,
domain => 'net-dns.org',
searchlist => ['net-dns.org', 't.net-dns.org'],
retrans => 6,
retry => 5,
usevc => 1,
stayopen => 1,
igntc => 1,
recurse => 0,
defnames => 0,
dnsrch => 0,
debug => 1,
tcp_timeout => 60,
udp_timeout => 60,
persistent_tcp => 1,
dnssec => 1,
);
$res = Net::DNS::Resolver->new(%test_config);
foreach my $item (keys %test_config) {
is_deeply($res->{$item}, $test_config{$item}, "$item is correct");
}
#
# Check that new() is vetting things properly.
#
foreach my $test (qw(nameservers searchlist)) {
foreach my $input ({}, 'string', 1, \1, undef) {
undef $res;
eval { $res = Net::DNS::Resolver->new($test => $input); };
ok($@, 'Invalid input caught');
ok(!$res, 'No resolver returned');
}
}
undef $res;
my %bad_input = (
tsig_rr => 'set',
errorstring => 'set',
answerfrom => 'set',
answersize => 'set',
querytime => 'set',
axfr_sel => 'set',
axfr_rr => 'set',
axfr_soa_count => 'set',
udppacketsize => 'set',
cdflag => 'set',
);
$res = Net::DNS::Resolver->new(%bad_input);
foreach my $key (keys %bad_input) {
isnt($res->{$key}, 'set', "$key is not set");
}
|
