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
|
use Test::More;
use Net::LDNS;
my $r = Net::LDNS->new( '8.8.8.8' );
$r->recurse( 0 );
ok( !$r->recurse, 'recursive off' );
$r->recurse( 1 );
ok( $r->recurse, 'recursive on' );
$r->retrans( 17 );
is( $r->retrans, 17, 'retrans set' );
$r->retry( 17 );
is( $r->retry, 17, 'retry set' );
$r->debug( 1 );
ok( $r->debug, 'debug set' );
$r->debug( 0 );
ok( !$r->debug, 'debug unset' );
$r->dnssec( 1 );
ok( $r->dnssec, 'dnssec set' );
$r->dnssec( 0 );
ok( !$r->dnssec, 'dnssec unset' );
$r->cd( 1 );
ok( $r->cd, 'dnssec set' );
$r->cd( 0 );
ok( !$r->cd, 'dnssec unset' );
$r->usevc( 1 );
ok( $r->usevc, 'usevc set' );
$r->usevc( 0 );
ok( !$r->usevc, 'usevc unset' );
$r->igntc( 1 );
ok( $r->igntc, 'igntc set' );
$r->igntc( 0 );
ok( !$r->igntc, 'igntc unset' );
$r->edns_size( 4711 );
is($r->edns_size, 4711 , 'ENDS0 UDP size set');
$r->edns_size( 0 );
is($r->edns_size, 0 , 'ENDS0 UDP size set to zero');
is($r->timeout, 5, 'Expected default timeout');
$r->timeout(3.33);
ok(($r->timeout - 3.33) < 0.01, 'Expected set timeout');
subtest 'recursion' => sub {
my $r = Net::LDNS->new( '8.8.4.4' );
my $p1 = $r->query( 'www.iis.se' );
is( scalar($p1->answer), 1);
$r->recurse(0);
my $p2 = $r->query( 'www.nic.se' );
is( scalar($p2->answer), 0, 'Got a reply');
ok(!$p2->rd, 'RD flag set');
};
subtest 'global' => sub {
my $res = new_ok( 'Net::LDNS' );
my $p = eval { $res->query( 'www.iis.se' ) } ;
if (not $p) {
diag $@;
}
else {
isa_ok( $p, 'Net::LDNS::Packet' );
isa_ok( $_, 'Net::LDNS::RR' ) for $p->answer;
}
};
# subtest 'sections' => sub {
# my $res = Net::LDNS->new( '194.146.106.22' );
# my $p = eval { $res->query( 'www.iis.se' ) };
# plan skip_all => 'No response, cannot test' if not $p;
#
# is( scalar( $p->answer ), 1, 'answer count in scalar context' );
# is( scalar( $p->authority ), 3, 'authority count in scalar context' );
# is( scalar( $p->additional ), 6, 'additional count in scalar context' );
# is( scalar( $p->question ), 1, 'question count in scalar context' );
# };
subtest 'none' => sub {
my $none = Net::LDNS->new( undef );
isa_ok( $none, 'Net::LDNS' );
my $pn = eval { $none->query( 'iis.se' ) };
like( $@, qr/No \(valid\) nameservers defined in the resolver/ );
ok( !$pn );
};
subtest 'broken' => sub {
my $b0rken = eval { Net::LDNS->new( 'gurksallad' ) };
ok( !$b0rken );
like( $@, qr/Failed to parse IP address: gurksallad/ );
};
done_testing;
|