Mercurial > hg > nginx-tests

comparison proxy_protocol2.t @ 1797:0b06942f0b8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: http resolver with ipv4/ipv6 parameters.
author Eugene Grebenschikov <e.grebenshchikov@f5.com>
date Wed, 12 Oct 2022 11:55:32 -0700
parents 88a098b00534
children 7102245abedf
comparison
equal deleted inserted replaced
1796:e1fd234baac0 1797:0b06942f0b8b
22 select STDERR; $| = 1; 22 select STDERR; $| = 1;
23 select STDOUT; $| = 1; 23 select STDOUT; $| = 1;
24 24
25 my $t = Test::Nginx->new()->has(qw/http access realip/); 25 my $t = Test::Nginx->new()->has(qw/http access realip/);
26 26
27 $t->write_file_expand('nginx.conf', <<'EOF')->plan(28); 27 $t->write_file_expand('nginx.conf', <<'EOF')->plan(32);
28 28
29 %%TEST_GLOBALS%% 29 %%TEST_GLOBALS%%
30 30
31 daemon off; 31 daemon off;
32 32
39 log_format pp $remote_addr:$remote_port; 39 log_format pp $remote_addr:$remote_port;
40 40
41 add_header X-IP $remote_addr!$remote_port; 41 add_header X-IP $remote_addr!$remote_port;
42 add_header X-PP $proxy_protocol_addr!$proxy_protocol_port; 42 add_header X-PP $proxy_protocol_addr!$proxy_protocol_port;
43 add_header X-PPS $proxy_protocol_server_addr!$proxy_protocol_server_port; 43 add_header X-PPS $proxy_protocol_server_addr!$proxy_protocol_server_port;
44 add_header X-TL $proxy_protocol_tlv_0x3-$proxy_protocol_tlv_0x0000ae-$proxy_protocol_tlv_0x0f;
45 add_header X-NT $proxy_protocol_tlv_unique_id-$proxy_protocol_tlv_ssl_cn-$proxy_protocol_tlv_ssl_0x22-$proxy_protocol_tlv_ssl_verify;
46 add_header X-NT2 $proxy_protocol_tlv_unique_id-$proxy_protocol_tlv_ssl_version-$proxy_protocol_tlv_ssl_0x21-$proxy_protocol_tlv_ssl_verify;
44 47
45 server { 48 server {
46 listen 127.0.0.1:8080 proxy_protocol; 49 listen 127.0.0.1:8080 proxy_protocol;
47 server_name localhost; 50 server_name localhost;
48 51
76 79
77 my $p = pack("N3C", 0x0D0A0D0A, 0x000D0A51, 0x5549540A, 0x21); 80 my $p = pack("N3C", 0x0D0A0D0A, 0x000D0A51, 0x5549540A, 0x21);
78 my $tcp4 = $p . pack("CnN2n2", 0x11, 12, 0xc0000201, 0xc0000202, 123, 5678); 81 my $tcp4 = $p . pack("CnN2n2", 0x11, 12, 0xc0000201, 0xc0000202, 123, 5678);
79 my $tcp6 = $p . pack("CnNx8NNx8Nn2", 0x21, 36, 82 my $tcp6 = $p . pack("CnNx8NNx8Nn2", 0x21, 36,
80 0x20010db8, 0x00000001, 0x20010db8, 0x00000002, 123, 5678); 83 0x20010db8, 0x00000001, 0x20010db8, 0x00000002, 123, 5678);
81 my $tlv = $p . pack("CnN2n2x9", 0x11, 21, 0xc0000201, 0xc0000202, 123, 5678);
82 my $unk1 = $p . pack("Cxx", 0x01); 84 my $unk1 = $p . pack("Cxx", 0x01);
85 my $tlv = $p . pack("CnN2n2N3", 0x11, 24, 0xc0000201, 0xc0000202, 123, 5678,
86 0x03000141, 0xAE000531, 0x32333435);
87 my $tlv2 = $p . pack("CnN2n2N7", 0x11, 40, 0xc0000201, 0xc0000202, 123, 5678,
88 0x05000555, 0x4E495151,0x20001100, 0xdeadbeef, 0x22000966, 0x6f6f2e62,
89 0x61727272);
90 my $tlv3 = $p . pack("CnN2n2N5", 0x11, 32, 0xc0000201, 0xc0000202, 123, 5678,
91 0x05000555, 0x4E495151,0x20000900, 0x00000000, 0x23000132);
83 my $unk2 = $p . pack("CnC4", 0x41, 4, 1, 2, 3, 4); 92 my $unk2 = $p . pack("CnC4", 0x41, 4, 1, 2, 3, 4);
84 my $r; 93 my $r;
85 94
86 # no realip, just PROXY header parsing 95 # no realip, just PROXY header parsing
87 96
100 $r = pp_get('/t1', $tlv); 109 $r = pp_get('/t1', $tlv);
101 like($r, qr/SEE-THIS/, 'tlv request'); 110 like($r, qr/SEE-THIS/, 'tlv request');
102 like($r, qr/X-PP: 192.0.2.1!123\x0d/, 'tlv proxy'); 111 like($r, qr/X-PP: 192.0.2.1!123\x0d/, 'tlv proxy');
103 like($r, qr/X-PPS: 192.0.2.2!5678\x0d/, 'tlv proxy server'); 112 like($r, qr/X-PPS: 192.0.2.2!5678\x0d/, 'tlv proxy server');
104 unlike($r, qr/X-IP: (192.0.2.1|[^!]+!123\x0d)/, 'tlv client'); 113 unlike($r, qr/X-IP: (192.0.2.1|[^!]+!123\x0d)/, 'tlv client');
114 like($r, qr/X-TL: A-12345-\x0d/, 'tlv raw variables');
115 like($r, qr/X-NT: ---\x0d/, 'tlv missing variables');
116
117 $r = pp_get('/t1', $tlv2);
118 like($r, qr/X-NT: UNIQQ-foo.barrr-foo.barrr-3735928559\x0d/,
119 'tlv named variables');
120
121 $r = pp_get('/t1', $tlv3);
122 like($r, qr/X-NT2: UNIQQ-2-2-0\x0d/,
123 'tlv named variables');
105 124
106 $r = pp_get('/t1', $unk1); 125 $r = pp_get('/t1', $unk1);
107 like($r, qr/SEE-THIS/, 'unknown request 1'); 126 like($r, qr/SEE-THIS/, 'unknown request 1');
108 like($r, qr/X-PP: !\x0d/, 'unknown proxy 1'); 127 like($r, qr/X-PP: !\x0d/, 'unknown proxy 1');
109 like($r, qr/X-PPS: !\x0d/, 'unknown proxy server 1'); 128 like($r, qr/X-PPS: !\x0d/, 'unknown proxy server 1');