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
|
#!/usr/bin/perl
# $Id: 01-resolver-opt.t 2007 2025-02-08 16:45:23Z willem $ -*-perl-*-
#
use strict;
use warnings;
use Test::More tests => 31;
use Net::DNS::Resolver;
local $ENV{'RES_NAMESERVERS'};
local $ENV{'RES_SEARCHLIST'};
local $ENV{'LOCALDOMAIN'};
local $ENV{'RES_OPTIONS'};
#
# Check that we can set things in new()
#
my %test_config = (
domain => 'net-dns.org',
searchlist => ['net-dns.org', 't.net-dns.org'],
debug => 1,
defnames => 0,
dnsrch => 0,
recurse => 0,
retrans => 6,
retry => 5,
persistent_tcp => 1,
persistent_udp => 1,
tcp_timeout => 60,
udp_timeout => 60,
usevc => 1,
port => 54,
srcport => 53,
adflag => 1,
cdflag => 0,
dnssec => 0,
);
foreach my $key ( sort keys %test_config ) {
my $resolver = Net::DNS::Resolver->new( $key => $test_config{$key} );
my @returned = $resolver->$key;
my %returned = ( $key => scalar(@returned) > 1 ? [@returned] : shift(@returned) );
is_deeply( $returned{$key}, $test_config{$key}, "$key is correct" );
}
#
# Check that new() is vetting things properly.
#
foreach my $test (qw(nameservers searchlist)) {
foreach my $input ( {}, \1 ) {
my $res = eval { Net::DNS::Resolver->new( $test => $input ); };
ok( $@, 'Invalid input caught' );
ok( !$res, 'No resolver returned' );
}
}
my @other = (
tsig => bless( {}, 'Net::DNS::RR::TSIG' ),
tsig => undef,
tsig => 'bogus',
replyfrom => 'IP',
answerfrom => 'IP', ## historical
);
while ( my $key = shift @other ) {
my $value = shift(@other);
my $res = Net::DNS::Resolver->new();
eval { $res->$key($value) };
my $image = defined($value) ? $value : 'undef';
ok( 1, "resolver->$key($image)" );
}
exit;
|
