Mercurial > hg > nginx-tests

annotate grpc_pass.t @ 1728:6d5ecf445e57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: added HTTP/2 test with big request body. Notably, it is useful with body buffering in filters, in which case the stream window is flow controlled based on the preread buffer.
author Sergey Kandaurov <pluknet@nginx.com>
date Sat, 04 Sep 2021 14:50:02 +0300
parents 5ac6efbe5552
children 58951cf933e1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1547
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
1 #!/usr/bin/perl
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
2
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
3 # (C) Sergey Kandaurov
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
4 # (C) Nginx, Inc.
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
5
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
6 # Tests for the grpc_pass directive with variables.
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
7
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
8 ###############################################################################
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
9
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
10 use warnings;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
11 use strict;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
12
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
13 use Test::More;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
14
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
15 BEGIN { use FindBin; chdir($FindBin::Bin); }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
16
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
17 use lib 'lib';
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
18 use Test::Nginx;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
19
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
20 ###############################################################################
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
21
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
22 select STDERR; $| = 1;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
23 select STDOUT; $| = 1;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
24
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
25 my $t = Test::Nginx->new()->has(qw/http http_ssl http_v2 grpc rewrite/)
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
26 ->has_daemon('openssl')->write_file_expand('nginx.conf', <<'EOF');
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
27
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
28 %%TEST_GLOBALS%%
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
29
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
30 daemon off;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
31
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
32 events {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
33 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
34
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
35 http {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
36 %%TEST_GLOBALS_HTTP%%
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
37
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
38 upstream u {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
39 server 127.0.0.1:8081;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
40 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
41
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
42 resolver 127.0.0.1:%%PORT_8982_UDP%%;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
43
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
44 server {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
45 listen 127.0.0.1:8080;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
46 server_name localhost;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
47
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
48 location / {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
49 grpc_pass $host:%%PORT_8081%%;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
50 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
51
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
52 location /grpc {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
53 grpc_pass grpc://$host:%%PORT_8081%%;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
54 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
55
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
56 location /grpcs {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
57 grpc_pass grpcs://$host:%%PORT_8082%%;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
58 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
59
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
60 location /arg {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
61 grpc_pass $arg_b;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
62 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
63 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
64
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
65 server {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
66 listen 127.0.0.1:8081 http2;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
67 listen 127.0.0.1:8082 http2 ssl;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
68 server_name localhost;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
69
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
70 ssl_certificate_key localhost.key;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
71 ssl_certificate localhost.crt;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
72
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
73 location / {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
74 return 200 $http_host;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
75 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
76 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
77 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
78
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
79 EOF
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
80
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
81 $t->write_file('openssl.conf', <<EOF);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
82 [ req ]
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
83 default_bits = 2048
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
84 encrypt_key = no
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
85 distinguished_name = req_distinguished_name
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
86 [ req_distinguished_name ]
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
87 EOF
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
88
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
89 my $d = $t->testdir();
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
90
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
91 foreach my $name ('localhost') {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
92 system('openssl req -x509 -new '
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
93 . "-config $d/openssl.conf -subj /CN=$name/ "
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
94 . "-out $d/$name.crt -keyout $d/$name.key "
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
95 . ">>$d/openssl.out 2>&1") == 0
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
96 or die "Can't create certificate for $name: $!\n";
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
97 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
98
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
99 $t->run_daemon(\&dns_daemon, port(8982), $t);
1693
5ac6efbe5552 Tests: removed TODO and try_run() checks for legacy versions.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1547
diff changeset
100 $t->run()->plan(5);
1547
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
101
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
102 $t->waitforfile($t->testdir . '/' . port(8982));
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
103
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
104 ###############################################################################
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
105
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
106 like(http_get('/basic'), qr/200 OK/, 'no scheme');
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
107 like(http_get('/grpc'), qr/200 OK/, 'grpc scheme');
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
108
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
109 SKIP: {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
110 $t->{_configure_args} =~ /OpenSSL ([\d\.]+)/;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
111 skip 'OpenSSL too old', 1 unless defined $1 and $1 ge '1.0.2';
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
112
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
113 like(http_get('/grpcs'), qr/200 OK/, 'grpcs scheme');
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
114
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
115 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
116
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
117 like(http_get('/arg?b=grpc://127.0.0.1:' . port(8081)), qr/200 OK/, 'addrs');
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
118 like(http_get('/arg?b=grpc://u'), qr/200 OK/, 'no_port');
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
119
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
120 ###############################################################################
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
121
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
122 sub reply_handler {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
123 my ($recv_data) = @_;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
124
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
125 my (@name, @rdata);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
126
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
127 use constant NOERROR => 0;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
128 use constant A => 1;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
129 use constant IN => 1;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
130
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
131 # default values
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
132
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
133 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
134
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
135 # decode name
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
136
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
137 my ($len, $offset) = (undef, 12);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
138 while (1) {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
139 $len = unpack("\@$offset C", $recv_data);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
140 last if $len == 0;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
141 $offset++;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
142 push @name, unpack("\@$offset A$len", $recv_data);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
143 $offset += $len;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
144 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
145
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
146 $offset -= 1;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
147 my ($id, $type, $class) = unpack("n x$offset n2", $recv_data);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
148
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
149 my $name = join('.', @name);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
150 if ($name eq 'localhost' && $type == A) {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
151 push @rdata, rd_addr($ttl, '127.0.0.1');
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
152 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
153
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
154 $len = @name;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
155 pack("n6 (C/a*)$len x n2", $id, $hdr | $rcode, 1, scalar @rdata,
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
156 0, 0, @name, $type, $class) . join('', @rdata);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
157 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
158
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
159 sub rd_addr {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
160 my ($ttl, $addr) = @_;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
161
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
162 my $code = 'split(/\./, $addr)';
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
163
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
164 return pack 'n3N', 0xc00c, A, IN, $ttl if $addr eq '';
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
165
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
166 pack 'n3N nC4', 0xc00c, A, IN, $ttl, eval "scalar $code", eval($code);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
167 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
168
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
169 sub dns_daemon {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
170 my ($port, $t) = @_;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
171
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
172 my ($data, $recv_data);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
173 my $socket = IO::Socket::INET->new(
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
174 LocalAddr => '127.0.0.1',
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
175 LocalPort => $port,
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
176 Proto => 'udp',
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
177 )
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
178 or die "Can't create listening socket: $!\n";
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
179
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
180 # signal we are ready
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
181
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
182 open my $fh, '>', $t->testdir() . '/' . $port;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
183 close $fh;
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
184
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
185 while (1) {
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
186 $socket->recv($recv_data, 65536);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
187 $data = reply_handler($recv_data);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
188 $socket->send($data);
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
189 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
190 }
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
191
2d747d967fc0 Tests: grpc_pass with variables.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff changeset
192 ###############################################################################