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
|
#!./perl
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib' if -d '../lib';
}
}
use Test;
BEGIN { $n = 10; plan tests => $n }
use Net::addrinfo;
use Socket qw(:all);
my $addrinfo = new Net::addrinfo(flags => AI_CANONNAME, family => AF_INET,
socktype => SOCK_DGRAM, addr =>
pack_sockaddr_in(53,inet_aton("www.marzot.net")));
ok(defined($addrinfo));
my (@ainfo_arr) = getaddrinfo("mail.marzot.net");
ok(@ainfo_arr);
my $ainfo = shift(@ainfo_arr);
ok(ref $ainfo eq 'Net::addrinfo');
my $hint = new Net::addrinfo(flags => AI_CANONNAME, protocol => IPPROTO_IP);
$ainfo = getaddrinfo("mail.marzot.net", undef, $hint);
ok(defined($ainfo) and ref $ainfo eq 'Net::addrinfo');
$hint = new Net::addrinfo(flags => AI_CANONNAME);
$ainfo = getaddrinfo("mail.marzot.net", "smtp", $hint);
ok(defined($ainfo) and ref $ainfo eq 'Net::addrinfo');
$hint = new Net::addrinfo(flags => AI_NUMERICHOST);
$ainfo = getaddrinfo("127.0.0.1", undef, $hint);
ok(defined($ainfo) and ref $ainfo eq 'Net::addrinfo');
$hint = new Net::addrinfo(flags => AI_CANONNAME);
$ainfo = getaddrinfo("good-A.test.dnssec-tools.org", "domain", $hint);
ok(defined($ainfo) and ref $ainfo eq 'Net::addrinfo');
$hint = new Net::addrinfo(flags => AI_PASSIVE);
$ainfo = getaddrinfo(undef, "domain", $hint);
ok(defined($ainfo) and ref $ainfo eq 'Net::addrinfo');
$ainfo = getaddrinfo(undef, "domain");
ok(defined($ainfo) and ref $ainfo eq 'Net::addrinfo');
$hint = new Net::addrinfo(flags => AI_CANONNAME,
socktype => SOCK_DGRAM,
protocol => IPPROTO_TCP);
$ainfo = getaddrinfo("www.marzot.net", "domain", $hint);
ok(defined($ainfo) and not ref($ainfo) and $ainfo == EAI_BADHINTS);
#$hint = new Net::addrinfo(flags => AI_CANONNAME);
#$ainfo = getaddrinfo(undef, "www", $hint);
#ok(defined($ainfo) and ref $ainfo eq 'Net::addrinfo');
#ok(defined($ainfo) and not ref($ainfo) and $ainfo == EAI_BADFLAGS);
|
