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
|
#!/usr/bin/perl
#
use strict;
use warnings;
use Test::More;
use Net::DNS::Resolver::Unbound;
my $resolver = Net::DNS::Resolver::Unbound->new(
defnames => 1,
dnsrch => 1,
debug_level => 0
);
plan skip_all => 'network tests disabled via NO_NETWORK' if $ENV{NO_NETWORK};
plan skip_all => 'resolver not loaded' unless $resolver;
plan skip_all => 'no local nameserver' unless $resolver->nameserver;
plan tests => 4;
my ( $name, $domain ) = qw(www net-dns.org);
ok( $resolver->send("$name.$domain"), "resolver->send('$name.$domain')" );
$resolver->domain($domain);
ok( $resolver->query($name), "resolver->query('$name')" );
$resolver->searchlist( "nxd.$domain", $domain );
ok( $resolver->search($name), "resolver->search('$name')" );
my $packet = $resolver->_make_query_packet("$name.$domain");
my $reply = $resolver->send($packet);
ok( $reply, 'resolver->send( $packet )' );
exit;
|
