Mercurial > hg > nginx-tests
annotate http_resolver_aaaa.t @ 360:82db241184e0
Tests: added AAAA specific resolver tests.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Sat, 14 Dec 2013 00:02:33 +0400 |
parents | http_resolver.t@cdab739eb6ea |
children | c28ecaef065f |
rev | line source |
---|---|
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
2 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
3 # (C) Sergey Kandaurov |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
4 # (C) Nginx, Inc. |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
5 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
6 # Tests for AAAA capable http resolver. |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
7 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
8 ############################################################################### |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
9 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
10 use warnings; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
11 use strict; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
12 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
13 use Test::More; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
14 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
15 BEGIN { use FindBin; chdir($FindBin::Bin); } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
16 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
17 use lib 'lib'; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
18 use Test::Nginx; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
19 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
20 ############################################################################### |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
21 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
22 select STDERR; $| = 1; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
23 select STDOUT; $| = 1; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
24 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
25 my $t = Test::Nginx->new()->has(qw/http proxy rewrite ipv6/); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
26 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
27 plan(skip_all => 'no ipv6 capable resolver') unless $t->has_version('1.5.8'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
28 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
29 $t->write_file_expand('nginx.conf', <<'EOF'); |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
30 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
31 %%TEST_GLOBALS%% |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
32 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
33 daemon off; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
34 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
35 events { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
36 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
37 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
38 http { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
39 %%TEST_GLOBALS_HTTP%% |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
40 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
41 server { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
42 listen 127.0.0.1:8080; |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
43 listen [::1]:8080; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
44 server_name localhost; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
45 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
46 location / { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
47 resolver 127.0.0.1:8081; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
48 proxy_pass http://$host:8080/backend; |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
49 |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
50 proxy_next_upstream http_504 timeout error; |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
51 proxy_intercept_errors on; |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
52 proxy_connect_timeout 50ms; |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
53 error_page 504 502 /50x; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
54 } |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
55 location /two { |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
56 resolver 127.0.0.1:8081 127.0.0.1:8082; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
57 proxy_pass http://$host:8080/backend; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
58 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
59 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
60 location /backend { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
61 return 200; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
62 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
63 location /50x { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
64 return 200 $upstream_addr; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
65 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
66 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
67 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
68 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
69 EOF |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
70 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
71 eval { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
72 open OLDERR, ">&", \*STDERR; close STDERR; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
73 $t->run(); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
74 open STDERR, ">&", \*OLDERR; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
75 }; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
76 plan(skip_all => 'no inet6 support') if $@; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
77 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
78 $t->run_daemon(\&dns_daemon, 8081, $t); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
79 $t->run_daemon(\&dns_daemon, 8082, $t); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
80 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
81 $t->waitforfile($t->testdir . '/8081'); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
82 $t->waitforfile($t->testdir . '/8082'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
83 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
84 $t->plan(72); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
85 |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
86 ############################################################################### |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
87 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
88 my (@n, $response); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
89 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
90 like(http_host_header('aaaa.example.net', '/'), qr/\[fe80::1\]/, 'AAAA'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
91 like(http_host_header('cname.example.net', '/'), qr/\[fe80::1\]/, 'CNAME'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
92 like(http_host_header('cname.example.net', '/'), qr/\[fe80::1\]/, |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
93 'CNAME cached'); |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
94 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
95 # CNAME + AAAA combined answer |
356
7a472e46772c
Tests: added http resolver test for CNAME + A combined answer.
Sergey Kandaurov <pluknet@nginx.com>
parents:
352
diff
changeset
|
96 # demonstrates the name in answer section different from what is asked |
7a472e46772c
Tests: added http resolver test for CNAME + A combined answer.
Sergey Kandaurov <pluknet@nginx.com>
parents:
352
diff
changeset
|
97 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
98 like(http_host_header('cname_a.example.net', '/'), qr/200 OK/, 'CNAME + AAAA'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
99 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
100 # many AAAA records in round robin |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
101 # nonexisting IPs enumerated with proxy_next_upstream |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
102 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
103 like(http_host_header('many.example.net', '/'), |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
104 qr/^\[fe80::(1\]:8080, \[fe80::2\]:8080|2\]:8080, \[fe80::1\]:8080)$/m, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
105 'AAAA many'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
106 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
107 like(http_host_header('many.example.net', '/'), |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
108 qr/^\[fe80::(1\]:8080, \[fe80::2\]:8080|2\]:8080, \[fe80::1\]:8080)$/m, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
109 'AAAA many cached'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
110 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
111 # tests for several resolvers specified in directive |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
112 # query bad ns, make sure that error responses are not cached |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
113 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
114 like(http_host_header('2.example.net', '/two'), qr/502 Bad/, 'two ns bad'); |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
115 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
116 # now get correct response |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
117 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
118 like(http_host_header('2.example.net', '/two'), qr/200 OK/, 'two ns good'); |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
119 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
120 # response is cached, actual request would get error |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
121 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
122 like(http_host_header('2.example.net', '/two'), qr/200 OK/, 'two ns cached'); |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
123 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
124 # various ipv4/ipv6 combinations |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
125 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
126 $response = http_host_header('z_z.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
127 is(@n = $response =~ /8080/g, 0, 'zero zero responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
128 like($response, qr/502 Bad/, 'zero zero'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
129 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
130 like(http_host_header('z_n.example.net', '/'), qr/^\[fe80::1\]:8080$/ms, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
131 'zero AAAA'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
132 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
133 $response = http_host_header('z_c.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
134 is(@n = $response =~ /8080/g, 2, 'zero CNAME responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
135 like($response, qr/127.0.0.201:8080/, 'zero CNAME 1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
136 like($response, qr/\[fe80::1\]:8080/, 'zero CNAME 2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
137 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
138 $response = http_host_header('z_cn.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
139 is(@n = $response =~ /8080/g, 2, 'zero CNAME+AAAA responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
140 like($response, qr/\[fe80::1\]:8080/, 'zero CNAME+AAAA 1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
141 like($response, qr/\[fe80::2\]:8080/, 'zero CNAME+AAAA 2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
142 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
143 $response = http_host_header('z_e.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
144 is(@n = $response =~ /8080/g, 0, 'zero error responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
145 like($response, qr/502 Bad/, 'zero error'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
146 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
147 like(http_host_header('n_z.example.net', '/'), qr/^127.0.0.201:8080$/ms, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
148 'A zero'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
149 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
150 $response = http_host_header('n_n.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
151 is(@n = $response =~ /8080/g, 2, 'A AAAA responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
152 like($response, qr/127.0.0.201:8080/, 'A AAAA 1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
153 like($response, qr/\[fe80::1\]:8080/, 'A AAAA 2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
154 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
155 like(http_host_header('n_c.example.net', '/'), qr/^127.0.0.201:8080$/ms, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
156 'A CNAME'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
157 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
158 $response = http_host_header('n_cn.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
159 is(@n = $response =~ /8080/g, 4, 'A CNAME+AAAA responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
160 like($response, qr/127.0.0.201:8080/, 'A CNAME+AAAA 1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
161 like($response, qr/127.0.0.202:8080/, 'A CNAME+AAAA 2'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
162 like($response, qr/\[fe80::1\]:8080/, 'A CNAME+AAAA 3'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
163 like($response, qr/\[fe80::2\]:8080/, 'A CNAME+AAAA 4'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
164 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
165 $response = http_host_header('n_e.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
166 is(@n = $response =~ /8080/g, 0, 'A error responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
167 like($response, qr/502 Bad/, 'A error'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
168 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
169 $response = http_host_header('c_z.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
170 is(@n = $response =~ /8080/g, 0, 'CNAME zero responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
171 like($response, qr/502 Bad/, 'CNAME zero'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
172 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
173 like(http_host_header('c_n.example.net', '/'), qr/^\[fe80::1\]:8080$/ms, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
174 'CNAME AAAA'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
175 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
176 $response = http_host_header('c_c.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
177 is(@n = $response =~ /8080/g, 2, 'CNAME CNAME responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
178 like($response, qr/127.0.0.201:8080/, 'CNAME CNAME 1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
179 like($response, qr/\[fe80::1\]:8080/, 'CNAME CNAME 2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
180 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
181 like(http_host_header('c1_c2.example.net', '/'), qr/^\[fe80::1\]:8080$/ms, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
182 'CNAME1 CNAME2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
183 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
184 $response = http_host_header('c_cn.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
185 is(@n = $response =~ /8080/g, 2, 'CNAME CNAME+AAAA responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
186 like($response, qr/\[fe80::1\]:8080/, 'CNAME CNAME+AAAA 1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
187 like($response, qr/\[fe80::2\]:8080/, 'CNAME CNAME+AAAA 1'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
188 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
189 $response = http_host_header('c_e.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
190 is(@n = $response =~ /8080/g, 0, 'CNAME error responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
191 like($response, qr/502 Bad/, 'CNAME error'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
192 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
193 $response = http_host_header('cn_z.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
194 is(@n = $response =~ /8080/g, 2, 'CNAME+A zero responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
195 like($response, qr/127.0.0.201:8080/, 'CNAME+A zero 1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
196 like($response, qr/127.0.0.202:8080/, 'CNAME+A zero 2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
197 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
198 $response = http_host_header('cn_n.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
199 is(@n = $response =~ /8080/g, 4, 'CNAME+A AAAA responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
200 like($response, qr/127.0.0.201:8080/, 'CNAME+A AAAA 1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
201 like($response, qr/127.0.0.202:8080/, 'CNAME+A AAAA 2'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
202 like($response, qr/\[fe80::1\]:8080/, 'CNAME+A AAAA 3'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
203 like($response, qr/\[fe80::2\]:8080/, 'CNAME+A AAAA 4'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
204 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
205 $response = http_host_header('cn_c.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
206 is(@n = $response =~ /8080/g, 2, 'CNAME+A CNAME responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
207 like($response, qr/127.0.0.201:8080/, 'CNAME+A CNAME 1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
208 like($response, qr/127.0.0.202:8080/, 'CNAME+A CNAME 2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
209 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
210 $response = http_host_header('cn_cn.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
211 is(@n = $response =~ /8080/g, 4, 'CNAME+A CNAME+AAAA responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
212 like($response, qr/127.0.0.201:8080/, 'CNAME+A CNAME+AAAA 1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
213 like($response, qr/127.0.0.202:8080/, 'CNAME+A CNAME+AAAA 2'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
214 like($response, qr/\[fe80::1\]:8080/, 'CNAME+A CNAME+AAAA 3'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
215 like($response, qr/\[fe80::2\]:8080/, 'CNAME+A CNAME+AAAA 4'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
216 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
217 $response = http_host_header('cn_e.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
218 is(@n = $response =~ /8080/g, 0, 'CNAME+A error responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
219 like($response, qr/502 Bad/, 'CNAME+A error'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
220 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
221 $response = http_host_header('e_z.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
222 is(@n = $response =~ /8080/g, 0, 'error zero responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
223 like($response, qr/502 Bad/, 'error zero'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
224 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
225 $response = http_host_header('e_n.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
226 is(@n = $response =~ /8080/g, 0, 'error AAAA responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
227 like($response, qr/502 Bad/, 'error AAAA'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
228 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
229 $response = http_host_header('e_c.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
230 is(@n = $response =~ /8080/g, 0, 'error CNAME responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
231 like($response, qr/502 Bad/, 'error CNAME'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
232 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
233 $response = http_host_header('e_cn.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
234 is(@n = $response =~ /8080/g, 0, 'error CNAME+AAAA responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
235 like($response, qr/502 Bad/, 'error CNAME+AAAA'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
236 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
237 $response = http_host_header('e_e.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
238 is(@n = $response =~ /8080/g, 0, 'error error responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
239 like($response, qr/502 Bad/, 'error error'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
240 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
241 ############################################################################### |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
242 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
243 sub http_host_header { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
244 my ($host, $uri) = @_; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
245 return http(<<EOF); |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
246 GET $uri HTTP/1.0 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
247 Host: $host |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
248 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
249 EOF |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
250 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
251 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
252 ############################################################################### |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
253 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
254 sub reply_handler { |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
255 my ($recv_data, $port, $state) = @_; |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
256 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
257 my (@name, @rdata); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
258 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
259 use constant NOERROR => 0; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
260 use constant SERVFAIL => 2; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
261 use constant NXDOMAIN => 3; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
262 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
263 use constant A => 1; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
264 use constant CNAME => 5; |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
265 use constant AAAA => 28; |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
266 use constant DNAME => 39; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
267 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
268 use constant IN => 1; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
269 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
270 # default values |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
271 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
272 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
273 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
274 # decode name |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
275 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
276 my ($len, $offset) = (undef, 12); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
277 while (1) { |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
278 $len = unpack("\@$offset C", $recv_data); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
279 last if $len == 0; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
280 $offset++; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
281 push @name, unpack("\@$offset A$len", $recv_data); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
282 $offset += $len; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
283 } |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
284 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
285 $offset -= 1; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
286 my ($id, $type, $class) = unpack("n x$offset n2", $recv_data); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
287 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
288 my $name = join('.', @name); |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
289 if (($name eq 'aaaa.example.net') || ($name eq 'alias.example.net')) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
290 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
291 push @rdata, rd_addr6($ttl, "fe80::1"); |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
292 } |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
293 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
294 } elsif ($name eq 'alias2.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
295 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
296 push @rdata, rd_addr($ttl, '127.0.0.201'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
297 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
298 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
299 push @rdata, rd_addr6($ttl, "fe80::1"); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
300 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
301 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
302 } elsif ($name eq 'alias4.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
303 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
304 push @rdata, rd_addr($ttl, '127.0.0.201'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
305 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
306 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
307 } elsif ($name eq 'alias6.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
308 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
309 push @rdata, rd_addr6($ttl, "fe80::1"); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
310 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
311 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
312 } elsif (($name eq 'many.example.net') && $type == AAAA) { |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
313 $state->{manycnt}++; |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
314 if ($state->{manycnt} > 1) { |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
315 $rcode = SERVFAIL; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
316 } |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
317 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
318 push @rdata, rd_addr6($ttl, 'fe80::1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
319 push @rdata, rd_addr6($ttl, 'fe80::2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
320 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
321 } elsif ($name eq 'cname.example.net') { |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
322 $state->{cnamecnt}++; |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
323 if ($state->{cnamecnt} > 2) { |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
324 $rcode = SERVFAIL; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
325 } |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
326 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
327 8, 5, 'alias', 0xc012); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
328 |
356
7a472e46772c
Tests: added http resolver test for CNAME + A combined answer.
Sergey Kandaurov <pluknet@nginx.com>
parents:
352
diff
changeset
|
329 } elsif ($name eq 'cname_a.example.net') { |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
330 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
331 8, 5, 'alias', 0xc014); |
356
7a472e46772c
Tests: added http resolver test for CNAME + A combined answer.
Sergey Kandaurov <pluknet@nginx.com>
parents:
352
diff
changeset
|
332 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
333 # points to "alias" set in previous rdata |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
334 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
335 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
336 push @rdata, pack('n3N nn8', 0xc031, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
337 16, expand_ip6("::1")); |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
338 } |
356
7a472e46772c
Tests: added http resolver test for CNAME + A combined answer.
Sergey Kandaurov <pluknet@nginx.com>
parents:
352
diff
changeset
|
339 |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
340 } elsif ($name eq '2.example.net') { |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
341 if ($port == 8081) { |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
342 $state->{twocnt}++; |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
343 } |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
344 if ($state->{twocnt} & 1) { |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
345 $rcode = SERVFAIL; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
346 } |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
347 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
348 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
349 push @rdata, rd_addr6($ttl, '::1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
350 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
351 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
352 } elsif ($name eq 'z_z.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
353 # assume no answers given |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
354 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
355 } elsif ($name eq 'z_n.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
356 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
357 push @rdata, rd_addr6($ttl, 'fe80::1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
358 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
359 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
360 } elsif ($name eq 'z_c.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
361 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
362 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
363 9, 6, 'alias2', 0xc010); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
364 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
365 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
366 } elsif ($name eq 'z_cn.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
367 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
368 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
369 8, 5, 'alias', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
370 push @rdata, pack('n3N nn8', 0xc02e, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
371 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
372 push @rdata, pack('n3N nn8', 0xc02e, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
373 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
374 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
375 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
376 } elsif ($name eq 'z_e.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
377 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
378 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
379 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
380 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
381 } elsif ($name eq 'n_z.example.net') { |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
382 if ($type == A) { |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
383 push @rdata, rd_addr($ttl, '127.0.0.201'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
384 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
385 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
386 } elsif ($name eq 'n_n.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
387 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
388 push @rdata, rd_addr($ttl, '127.0.0.201'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
389 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
390 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
391 push @rdata, rd_addr6($ttl, 'fe80::1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
392 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
393 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
394 } elsif ($name eq 'n_c.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
395 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
396 push @rdata, rd_addr($ttl, '127.0.0.201'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
397 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
398 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
399 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
400 9, 6, 'alias2', 0xc010); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
401 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
402 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
403 } elsif ($name eq 'n_cn.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
404 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
405 push @rdata, rd_addr($ttl, '127.0.0.201'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
406 push @rdata, rd_addr($ttl, '127.0.0.202'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
407 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
408 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
409 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
410 8, 5, 'alias', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
411 push @rdata, pack('n3N nn8', 0xc02e, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
412 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
413 push @rdata, pack('n3N nn8', 0xc02e, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
414 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
415 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
416 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
417 } elsif ($name eq 'n_e.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
418 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
419 push @rdata, rd_addr($ttl, '127.0.0.201'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
420 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
421 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
422 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
423 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
424 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
425 } elsif ($name eq 'c_z.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
426 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
427 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
428 8, 5, 'alias', 0xc010); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
429 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
430 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
431 } elsif ($name eq 'c_n.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
432 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
433 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
434 8, 5, 'alias', 0xc010); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
435 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
436 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
437 push @rdata, rd_addr6($ttl, "fe80::1"); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
438 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
439 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
440 } elsif ($name eq 'c_c.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
441 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
442 9, 6, 'alias2', 0xc010); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
443 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
444 } elsif ($name eq 'c1_c2.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
445 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
446 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
447 9, 6, 'alias4', 0xc012); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
448 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
449 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
450 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
451 9, 6, 'alias6', 0xc012); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
452 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
453 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
454 } elsif ($name eq 'c_cn.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
455 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
456 9, 6, 'alias2', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
457 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
458 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
459 push @rdata, pack('n3N nn8', 0xc02e, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
460 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
461 push @rdata, pack('n3N nn8', 0xc02e, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
462 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
463 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
464 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
465 } elsif ($name eq 'cn_z.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
466 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
467 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
468 9, 6, 'alias2', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
469 push @rdata, pack("n3N nC4", 0xc02e, A, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
470 4, split('\.', '127.0.0.201')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
471 push @rdata, pack("n3N nC4", 0xc02e, A, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
472 4, split('\.', '127.0.0.202')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
473 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
474 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
475 } elsif ($name eq 'cn_n.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
476 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
477 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
478 9, 6, 'alias2', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
479 push @rdata, pack("n3N nC4", 0xc02e, A, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
480 4, split('\.', '127.0.0.201')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
481 push @rdata, pack("n3N nC4", 0xc02e, A, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
482 4, split('\.', '127.0.0.202')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
483 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
484 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
485 push @rdata, pack('n3N nn8', 0xc00c, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
486 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
487 push @rdata, pack('n3N nn8', 0xc00c, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
488 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
489 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
490 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
491 } elsif ($name eq 'cn_c.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
492 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
493 9, 6, 'alias2', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
494 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
495 push @rdata, pack("n3N nC4", 0xc02e, A, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
496 4, split('\.', '127.0.0.201')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
497 push @rdata, pack("n3N nC4", 0xc02e, A, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
498 4, split('\.', '127.0.0.202')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
499 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
500 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
501 } elsif ($name eq 'cn_cn.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
502 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
503 9, 6, 'alias2', 0xc012); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
504 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
505 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
506 push @rdata, pack("n3N nC4", 0xc02f, A, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
507 4, split('\.', '127.0.0.201')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
508 push @rdata, pack("n3N nC4", 0xc02f, A, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
509 4, split('\.', '127.0.0.202')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
510 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
511 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
512 push @rdata, pack('n3N nn8', 0xc02f, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
513 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
514 push @rdata, pack('n3N nn8', 0xc02f, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
515 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
516 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
517 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
518 } elsif ($name eq 'cn_e.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
519 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
520 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
521 9, 6, 'alias2', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
522 push @rdata, pack("n3N nC4", 0xc02e, A, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
523 4, split('\.', '127.0.0.201')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
524 push @rdata, pack("n3N nC4", 0xc02e, A, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
525 4, split('\.', '127.0.0.202')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
526 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
527 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
528 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
529 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
530 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
531 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
532 } elsif ($name eq 'e_z.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
533 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
534 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
535 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
536 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
537 } elsif ($name eq 'e_n.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
538 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
539 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
540 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
541 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
542 push @rdata, rd_addr6($ttl, 'fe80::1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
543 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
544 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
545 } elsif ($name eq 'e_c.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
546 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
547 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
548 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
549 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
550 push @rdata, pack("n3N nCa6n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
551 9, 6, 'alias2', 0xc010); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
552 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
553 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
554 } elsif ($name eq 'e_cn.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
555 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
556 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
557 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
558 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
559 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
560 8, 5, 'alias', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
561 push @rdata, pack('n3N nn8', 0xc02e, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
562 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
563 push @rdata, pack('n3N nn8', 0xc02e, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
564 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
565 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
566 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
567 } elsif ($name eq 'e_e.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
568 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
569 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
570 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
571 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
572 $rcode = NXDOMAIN; |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
573 } |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
574 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
575 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
576 $len = @name; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
577 pack("n6 (w/a*)$len x n2", $id, $hdr | $rcode, 1, scalar @rdata, |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
578 0, 0, @name, $type, $class) . join('', @rdata); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
579 } |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
580 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
581 sub rd_addr { |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
582 my ($ttl, $addr) = @_; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
583 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
584 my $code = 'split(/\./, $addr)'; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
585 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
586 pack 'n3N nC4', 0xc00c, A, IN, $ttl, eval "scalar $code", eval($code); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
587 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
588 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
589 sub expand_ip6 { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
590 my ($addr) = @_; |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
591 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
592 substr ($addr, index($addr, "::"), 2) = |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
593 join "0", map { ":" } (0 .. 8 - (split /:/, $addr) + 1); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
594 map { hex "0" x (4 - length $_) . "$_" } split /:/, $addr; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
595 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
596 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
597 sub rd_addr6 { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
598 my ($ttl, $addr) = @_; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
599 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
600 pack 'n3N nn8', 0xc00c, AAAA, IN, $ttl, 16, expand_ip6($addr); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
601 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
602 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
603 sub dns_daemon { |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
604 my ($port, $t) = @_; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
605 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
606 my ($data, $recv_data); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
607 my $socket = IO::Socket::INET->new( |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
608 LocalAddr => '127.0.0.1', |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
609 LocalPort => $port, |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
610 Proto => 'udp', |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
611 ) |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
612 or die "Can't create listening socket: $!\n"; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
613 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
614 # track number of relevant queries |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
615 |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
616 my %state = ( |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
617 cnamecnt => 0, |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
618 twocnt => 0, |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
619 manycnt => 0, |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
620 ); |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
621 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
622 # signal we are ready |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
623 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
624 open my $fh, '>', $t->testdir() . '/' . $port; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
625 close $fh; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
626 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
627 while (1) { |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
628 $socket->recv($recv_data, 65536); |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
629 $data = reply_handler($recv_data, $port, \%state); |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
630 $socket->send($data); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
631 } |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
632 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
633 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
634 ############################################################################### |