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
|
#!/usr/bin/perl
# $Id: 01-resolver-config.t 2013 2025-02-11 15:52:59Z willem $ -*-perl-*-
#
use strict;
use warnings;
use IO::File;
use Test::More tests => 21;
use Net::DNS::Resolver;
local $ENV{'RES_NAMESERVERS'};
local $ENV{'RES_SEARCHLIST'};
local $ENV{'LOCALDOMAIN'};
local $ENV{'RES_OPTIONS'};
eval {
my $fh = IO::File->new( '.resolv.conf', '>' ) || die $!; # owned by effective UID
close($fh);
};
my $resolver = Net::DNS::Resolver->new();
my $class = ref($resolver);
ok( $resolver->isa('Net::DNS::Resolver'), 'new() created object' );
my ($isa) = $resolver->OS_CONF;
ok( $class->new( debug => 1 )->_diag(qq(_diag("$isa");)), 'debug message' );
$class->nameservers(qw(127.0.0.1 ::1)); # check class methods
ok( scalar( $class->nameservers ), '$class->nameservers' );
$class->searchlist(qw(sub1.example.com sub2.example.com));
ok( scalar( $class->searchlist ), '$class->searchlist' );
$class->domain('example.com');
ok( $class->domain, '$class->domain' );
ok( $class->srcport(1234), '$class->srcport' );
ok( $class->string(), '$class->string' );
ok( $resolver->domain('example.com'), '$resolver->domain' ); # check instance methods
ok( $resolver->searchlist('example.com'), '$resolver->searchlist' );
$resolver->nameservers(qw(127.0.0.1 ::1 ::ffff:127.0.0.1 fe80::1234%1));
ok( scalar( $resolver->nameservers() ), '$resolver->nameservers' );
$resolver->nameservers();
is( scalar( $resolver->nameservers() ), 0, 'delete nameservers' );
my ($IPv4) = $resolver->nameserver(qw(127.0.0.1));
is( $IPv4, '127.0.0.1', 'IPv4 nameserver' );
my ($IPv6) = $resolver->nameserver(qw(::1));
SKIP: {
skip( 'IPv6 specific test', 6 ) unless $IPv6;
is( $IPv6, '::1', 'IPv6 nameserver' );
my ($pref4) = $class->new( prefer_v4 => 1 )->nameserver(qw(::1 127.0.0.1));
is( $pref4, '127.0.0.1', '$resolver->prefer_v4(1)' );
my ($force4) = $class->new( force_v4 => 1 )->nameserver(qw(::1 127.0.0.1));
is( $force4, '127.0.0.1', '$resolver->force_v4(1)' );
my ($pref6) = $class->new( prefer_v6 => 1 )->nameserver(qw(127.0.0.1 ::1));
is( $pref6, '::1', '$resolver->prefer_v6(1)' );
my ($force6) = $class->new( force_v6 => 1 )->nameserver(qw(127.0.0.1 ::1));
is( $force6, '::1', '$resolver->force_v6(1)' );
}
foreach my $ip (qw(127.0.0.1 ::1)) {
is( $resolver->srcaddr($ip), $ip, "\$resolver->srcaddr($ip)" );
}
ok( $resolver->_hints(), 'parse defaults hints RRs' ); # check private methods callable
ok( $resolver->_hints(), 'defaults hints accessible' );
eval { ## no critic # exercise printing functions
my $object = Net::DNS::Resolver->new();
my $file = "01-resolver.tmp";
my $handle = IO::File->new( $file, '>' ) || die "Could not open $file for writing";
select( ( select($handle), $object->print )[0] );
close($handle);
unlink($file);
};
exit;
|
