Mercurial > hg > nginx-tests
annotate http_resolver_aaaa.t @ 672:66f94d6c5047
Tests: more HTTP/2 error handling tests.
Make sure that, besides GOAWAY, connection is closed on a connection error.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Wed, 02 Sep 2015 17:37:48 +0300 |
parents | 847ea345becb |
children | 78b4e12e6efe |
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 |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
27 $t->write_file_expand('nginx.conf', <<'EOF'); |
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 %%TEST_GLOBALS%% |
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 daemon off; |
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 events { |
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 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
36 http { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
37 %%TEST_GLOBALS_HTTP%% |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
38 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
39 server { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
40 listen 127.0.0.1:8080; |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
41 listen [::1]:8080; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
42 server_name localhost; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
43 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
44 location / { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
45 resolver 127.0.0.1:8081; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
46 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
|
47 |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
48 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
|
49 proxy_intercept_errors on; |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
50 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
|
51 error_page 504 502 /50x; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
52 } |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
53 location /two { |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
54 resolver 127.0.0.1:8081 127.0.0.1:8082; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
55 proxy_pass http://$host:8080/backend; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
56 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
57 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
58 location /backend { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
59 return 200; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
60 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
61 location /50x { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
62 return 200 $upstream_addr; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
63 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
64 } |
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 EOF |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
68 |
392
c28ecaef065f
Tests: try_run() introduced.
Maxim Dounin <mdounin@mdounin.ru>
parents:
360
diff
changeset
|
69 $t->try_run('no inet6 support')->plan(72); |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
70 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
71 $t->run_daemon(\&dns_daemon, 8081, $t); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
72 $t->run_daemon(\&dns_daemon, 8082, $t); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
73 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
74 $t->waitforfile($t->testdir . '/8081'); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
75 $t->waitforfile($t->testdir . '/8082'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
76 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
77 ############################################################################### |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
78 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
79 my (@n, $response); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
80 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
81 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
|
82 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
|
83 like(http_host_header('cname.example.net', '/'), qr/\[fe80::1\]/, |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
84 'CNAME cached'); |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
85 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
86 # 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
|
87 # 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
|
88 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
89 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
|
90 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
91 # many AAAA records in round robin |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
92 # nonexisting IPs enumerated with proxy_next_upstream |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
93 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
94 like(http_host_header('many.example.net', '/'), |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
95 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
|
96 'AAAA many'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
97 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
98 like(http_host_header('many.example.net', '/'), |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
99 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
|
100 'AAAA many cached'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
101 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
102 # 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
|
103 # 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
|
104 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
105 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
|
106 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
107 # now get correct response |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
108 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
109 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
|
110 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
111 # response is cached, actual request would get error |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
112 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
113 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
|
114 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
115 # various ipv4/ipv6 combinations |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
116 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
117 $response = http_host_header('z_z.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
118 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
|
119 like($response, qr/502 Bad/, 'zero zero'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
120 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
121 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
|
122 'zero AAAA'); |
352
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 $response = http_host_header('z_c.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
125 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
|
126 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
|
127 like($response, qr/\[fe80::1\]:8080/, 'zero CNAME 2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
128 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
129 $response = http_host_header('z_cn.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
130 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
|
131 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
|
132 like($response, qr/\[fe80::2\]:8080/, 'zero CNAME+AAAA 2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
133 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
134 $response = http_host_header('z_e.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
135 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
|
136 like($response, qr/502 Bad/, 'zero error'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
137 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
138 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
|
139 'A zero'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
140 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
141 $response = http_host_header('n_n.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
142 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
|
143 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
|
144 like($response, qr/\[fe80::1\]:8080/, 'A AAAA 2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
145 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
146 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
|
147 'A CNAME'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
148 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
149 $response = http_host_header('n_cn.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
150 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
|
151 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
|
152 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
|
153 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
|
154 like($response, qr/\[fe80::2\]:8080/, 'A CNAME+AAAA 4'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
155 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
156 $response = http_host_header('n_e.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
157 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
|
158 like($response, qr/502 Bad/, 'A error'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
159 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
160 $response = http_host_header('c_z.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
161 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
|
162 like($response, qr/502 Bad/, 'CNAME zero'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
163 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
164 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
|
165 'CNAME AAAA'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
166 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
167 $response = http_host_header('c_c.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
168 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
|
169 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
|
170 like($response, qr/\[fe80::1\]:8080/, 'CNAME CNAME 2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
171 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
172 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
|
173 'CNAME1 CNAME2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
174 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
175 $response = http_host_header('c_cn.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
176 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
|
177 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
|
178 like($response, qr/\[fe80::2\]:8080/, 'CNAME CNAME+AAAA 1'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
179 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
180 $response = http_host_header('c_e.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
181 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
|
182 like($response, qr/502 Bad/, 'CNAME error'); |
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('cn_z.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+A zero responses'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
186 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
|
187 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
|
188 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
189 $response = http_host_header('cn_n.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
190 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
|
191 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
|
192 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
|
193 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
|
194 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
|
195 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
196 $response = http_host_header('cn_c.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
197 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
|
198 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
|
199 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
|
200 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
201 $response = http_host_header('cn_cn.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
202 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
|
203 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
|
204 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
|
205 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
|
206 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
|
207 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
208 $response = http_host_header('cn_e.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
209 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
|
210 like($response, qr/502 Bad/, 'CNAME+A error'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
211 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
212 $response = http_host_header('e_z.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
213 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
|
214 like($response, qr/502 Bad/, 'error zero'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
215 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
216 $response = http_host_header('e_n.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
217 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
|
218 like($response, qr/502 Bad/, 'error AAAA'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
219 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
220 $response = http_host_header('e_c.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
221 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
|
222 like($response, qr/502 Bad/, 'error CNAME'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
223 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
224 $response = http_host_header('e_cn.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
225 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
|
226 like($response, qr/502 Bad/, 'error CNAME+AAAA'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
227 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
228 $response = http_host_header('e_e.example.net', '/'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
229 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
|
230 like($response, qr/502 Bad/, 'error error'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
231 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
232 ############################################################################### |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
233 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
234 sub http_host_header { |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
235 my ($host, $uri) = @_; |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
236 return http(<<EOF); |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
237 GET $uri HTTP/1.0 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
238 Host: $host |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
239 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
240 EOF |
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 ############################################################################### |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
244 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
245 sub reply_handler { |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
246 my ($recv_data, $port, $state) = @_; |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
247 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
248 my (@name, @rdata); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
249 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
250 use constant NOERROR => 0; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
251 use constant SERVFAIL => 2; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
252 use constant NXDOMAIN => 3; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
253 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
254 use constant A => 1; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
255 use constant CNAME => 5; |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
256 use constant AAAA => 28; |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
257 use constant DNAME => 39; |
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 IN => 1; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
260 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
261 # default values |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
262 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
263 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
264 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
265 # decode name |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
266 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
267 my ($len, $offset) = (undef, 12); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
268 while (1) { |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
269 $len = unpack("\@$offset C", $recv_data); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
270 last if $len == 0; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
271 $offset++; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
272 push @name, unpack("\@$offset A$len", $recv_data); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
273 $offset += $len; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
274 } |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
275 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
276 $offset -= 1; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
277 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
|
278 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
279 my $name = join('.', @name); |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
280 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
|
281 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
282 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
|
283 } |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
284 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
285 } elsif ($name eq 'alias2.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
286 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
287 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
|
288 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
289 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
290 push @rdata, rd_addr6($ttl, "fe80::1"); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
291 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
292 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
293 } elsif ($name eq 'alias4.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
294 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
295 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
|
296 } |
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 } elsif ($name eq 'alias6.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
299 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
300 push @rdata, rd_addr6($ttl, "fe80::1"); |
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 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
303 } 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
|
304 $state->{manycnt}++; |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
305 if ($state->{manycnt} > 1) { |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
306 $rcode = SERVFAIL; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
307 } |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
308 |
360
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 push @rdata, rd_addr6($ttl, 'fe80::2'); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
311 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
312 } 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
|
313 $state->{cnamecnt}++; |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
314 if ($state->{cnamecnt} > 2) { |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
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 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
318 8, 5, 'alias', 0xc012); |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
319 |
356
7a472e46772c
Tests: added http resolver test for CNAME + A combined answer.
Sergey Kandaurov <pluknet@nginx.com>
parents:
352
diff
changeset
|
320 } elsif ($name eq 'cname_a.example.net') { |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
321 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
322 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
|
323 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
324 # points to "alias" set in previous rdata |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
325 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
326 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
327 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
|
328 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
|
329 } |
356
7a472e46772c
Tests: added http resolver test for CNAME + A combined answer.
Sergey Kandaurov <pluknet@nginx.com>
parents:
352
diff
changeset
|
330 |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
331 } elsif ($name eq '2.example.net') { |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
332 if ($port == 8081) { |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
333 $state->{twocnt}++; |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
334 } |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
335 if ($state->{twocnt} & 1) { |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
336 $rcode = SERVFAIL; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
337 } |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
338 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
339 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
340 push @rdata, rd_addr6($ttl, '::1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
341 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
342 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
343 } elsif ($name eq 'z_z.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
344 # assume no answers given |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
345 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
346 } elsif ($name eq 'z_n.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
347 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
348 push @rdata, rd_addr6($ttl, 'fe80::1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
349 } |
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 } elsif ($name eq 'z_c.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
352 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
353 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
|
354 9, 6, 'alias2', 0xc010); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
355 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
356 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
357 } elsif ($name eq 'z_cn.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
358 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
359 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
|
360 8, 5, 'alias', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
361 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
|
362 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
363 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
|
364 16, expand_ip6("fe80::2")); |
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 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
367 } elsif ($name eq 'z_e.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
368 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
369 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
370 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
371 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
372 } 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
|
373 if ($type == A) { |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
374 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
|
375 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
376 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
377 } elsif ($name eq 'n_n.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
378 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
379 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
|
380 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
381 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
382 push @rdata, rd_addr6($ttl, 'fe80::1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
383 } |
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 } elsif ($name eq 'n_c.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
386 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
387 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
|
388 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
389 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
390 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
|
391 9, 6, 'alias2', 0xc010); |
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_cn.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 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
|
398 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
399 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
400 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
|
401 8, 5, 'alias', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
402 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
|
403 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
404 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
|
405 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
406 } |
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 } elsif ($name eq 'n_e.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
409 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
410 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
|
411 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
412 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
413 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
414 } |
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 } elsif ($name eq 'c_z.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
417 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
418 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
|
419 8, 5, 'alias', 0xc010); |
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 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
422 } elsif ($name eq 'c_n.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
423 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
424 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
|
425 8, 5, 'alias', 0xc010); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
426 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
427 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
428 push @rdata, rd_addr6($ttl, "fe80::1"); |
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_c.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
432 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
|
433 9, 6, 'alias2', 0xc010); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
434 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
435 } elsif ($name eq 'c1_c2.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
436 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
437 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
|
438 9, 6, 'alias4', 0xc012); |
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 if ($type == AAAA) { |
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, 'alias6', 0xc012); |
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 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
445 } elsif ($name eq 'c_cn.example.net') { |
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, 'alias2', 0xc011); |
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 nn8', 0xc02e, AAAA, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
451 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
452 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
|
453 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
454 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
455 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
456 } elsif ($name eq 'cn_z.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
457 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
458 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
|
459 9, 6, 'alias2', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
460 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
|
461 4, split('\.', '127.0.0.201')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
462 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
|
463 4, split('\.', '127.0.0.202')); |
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 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
466 } elsif ($name eq 'cn_n.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
467 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
468 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
|
469 9, 6, 'alias2', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
470 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
|
471 4, split('\.', '127.0.0.201')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
472 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
|
473 4, split('\.', '127.0.0.202')); |
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 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
476 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
|
477 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
478 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
|
479 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
480 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
481 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
482 } elsif ($name eq 'cn_c.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
483 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
|
484 9, 6, 'alias2', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
485 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
486 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
|
487 4, split('\.', '127.0.0.201')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
488 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
|
489 4, split('\.', '127.0.0.202')); |
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 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
492 } elsif ($name eq 'cn_cn.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
493 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
|
494 9, 6, 'alias2', 0xc012); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
495 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
496 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
497 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
|
498 4, split('\.', '127.0.0.201')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
499 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
|
500 4, split('\.', '127.0.0.202')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
501 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
502 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
503 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
|
504 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
505 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
|
506 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
507 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
508 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
509 } elsif ($name eq 'cn_e.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
510 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
511 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
|
512 9, 6, 'alias2', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
513 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
|
514 4, split('\.', '127.0.0.201')); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
515 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
|
516 4, split('\.', '127.0.0.202')); |
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 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
519 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
520 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
521 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
522 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
523 } elsif ($name eq 'e_z.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
524 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
525 $rcode = SERVFAIL; |
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 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
528 } elsif ($name eq 'e_n.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
529 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
530 $rcode = SERVFAIL; |
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 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
533 push @rdata, rd_addr6($ttl, 'fe80::1'); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
534 } |
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 } elsif ($name eq 'e_c.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
537 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
538 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
539 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
540 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
541 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
|
542 9, 6, 'alias2', 0xc010); |
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_cn.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 nCa5n", 0xc00c, CNAME, IN, $ttl, |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
551 8, 5, 'alias', 0xc011); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
552 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
|
553 16, expand_ip6("fe80::1")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
554 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
|
555 16, expand_ip6("fe80::2")); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
556 } |
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 } elsif ($name eq 'e_e.example.net') { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
559 if ($type == A) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
560 $rcode = SERVFAIL; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
561 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
562 if ($type == AAAA) { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
563 $rcode = NXDOMAIN; |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
564 } |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
565 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
566 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
567 $len = @name; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
568 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
|
569 0, 0, @name, $type, $class) . join('', @rdata); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
570 } |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
571 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
572 sub rd_addr { |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
573 my ($ttl, $addr) = @_; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
574 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
575 my $code = 'split(/\./, $addr)'; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
576 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
577 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
|
578 } |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
579 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
580 sub expand_ip6 { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
581 my ($addr) = @_; |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
582 |
360
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
583 substr ($addr, index($addr, "::"), 2) = |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
584 join "0", map { ":" } (0 .. 8 - (split /:/, $addr) + 1); |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
585 map { hex "0" x (4 - length $_) . "$_" } split /:/, $addr; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
586 } |
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 sub rd_addr6 { |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
589 my ($ttl, $addr) = @_; |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
590 |
82db241184e0
Tests: added AAAA specific resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
359
diff
changeset
|
591 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
|
592 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
593 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
594 sub dns_daemon { |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
595 my ($port, $t) = @_; |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
596 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
597 my ($data, $recv_data); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
598 my $socket = IO::Socket::INET->new( |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
599 LocalAddr => '127.0.0.1', |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
600 LocalPort => $port, |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
601 Proto => 'udp', |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
602 ) |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
603 or die "Can't create listening socket: $!\n"; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
604 |
359
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
605 # 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
|
606 |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
607 my %state = ( |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
608 cnamecnt => 0, |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
609 twocnt => 0, |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
610 manycnt => 0, |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
611 ); |
cdab739eb6ea
Tests: resolver tests enabled to work with AAAA capable resolver.
Sergey Kandaurov <pluknet@nginx.com>
parents:
357
diff
changeset
|
612 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
613 # signal we are ready |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
614 |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
615 open my $fh, '>', $t->testdir() . '/' . $port; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
616 close $fh; |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
617 |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
618 while (1) { |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
619 $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
|
620 $data = reply_handler($recv_data, $port, \%state); |
357
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
621 $socket->send($data); |
e0c00e695cb5
Tests: removed Net::DNS dependency.
Sergey Kandaurov <pluknet@nginx.com>
parents:
356
diff
changeset
|
622 } |
352
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
623 } |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
624 |
145c37f27c5a
Tests: added resolver tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
625 ############################################################################### |