Mercurial > hg > nginx-tests
comparison stream_proxy_protocol2_tlv.t @ 1987:a095b971fbcc
Tests: removed TODO and try_run() checks for legacy versions.
For h2_http2.t, try_run() is preserved to ensure that deprecation
warnings for "listen ... http2" are suppressed, yet plan() is reported
before try_run(), so failure to start will be properly reported.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Tue, 04 Jun 2024 18:38:01 +0300 |
parents | 6040bfd6acbd |
children | 6b1222de8286 |
comparison
equal
deleted
inserted
replaced
1986:11463d379570 | 1987:a095b971fbcc |
---|---|
22 ############################################################################### | 22 ############################################################################### |
23 | 23 |
24 select STDERR; $| = 1; | 24 select STDERR; $| = 1; |
25 select STDOUT; $| = 1; | 25 select STDOUT; $| = 1; |
26 | 26 |
27 my $t = Test::Nginx->new()->has(qw/stream stream_return map/) | 27 my $t = Test::Nginx->new()->has(qw/stream stream_return map/)->plan(14) |
28 ->write_file_expand('nginx.conf', <<'EOF'); | 28 ->write_file_expand('nginx.conf', <<'EOF'); |
29 | 29 |
30 %%TEST_GLOBALS%% | 30 %%TEST_GLOBALS%% |
31 | 31 |
32 daemon off; | 32 daemon off; |
61 } | 61 } |
62 } | 62 } |
63 | 63 |
64 EOF | 64 EOF |
65 | 65 |
66 $t->try_run('no proxy_protocol tlv')->plan(14); | 66 $t->run(); |
67 | 67 |
68 ############################################################################### | 68 ############################################################################### |
69 | 69 |
70 my $tlv = pp2_create_tlv(0x1, "ALPN1"); | 70 my $tlv = pp2_create_tlv(0x1, "ALPN1"); |
71 $tlv .= pp2_create_tlv(0x2, "localhost"); | 71 $tlv .= pp2_create_tlv(0x2, "localhost"); |
84 like($r, qr/custom:12345\x0d?$/m, 'custom'); | 84 like($r, qr/custom:12345\x0d?$/m, 'custom'); |
85 like($r, qr/x:\x0d?$/m, 'non-existent'); | 85 like($r, qr/x:\x0d?$/m, 'non-existent'); |
86 | 86 |
87 # big proxy protocol header with TLVs | 87 # big proxy protocol header with TLVs |
88 | 88 |
89 TODO: { | |
90 local $TODO = 'not yet' unless $t->has_version('1.23.3'); | |
91 | |
92 my $sub = pp2_create_tlv(0x21, "TLSv1.2"); | 89 my $sub = pp2_create_tlv(0x21, "TLSv1.2"); |
93 $sub .= pp2_create_tlv(0x22, "example.com"); | 90 $sub .= pp2_create_tlv(0x22, "example.com"); |
94 $sub .= pp2_create_tlv(0x23, "AES256-SHA"); | 91 $sub .= pp2_create_tlv(0x23, "AES256-SHA"); |
95 $sub .= pp2_create_tlv(0x24, "SHA1"); | 92 $sub .= pp2_create_tlv(0x24, "SHA1"); |
96 $sub .= pp2_create_tlv(0x25, "RSA512"); | 93 $sub .= pp2_create_tlv(0x25, "RSA512"); |
104 like($r, qr/ssl-cn:example.com\x0d?$/m, 'SSL_CN'); | 101 like($r, qr/ssl-cn:example.com\x0d?$/m, 'SSL_CN'); |
105 like($r, qr/ssl-cipher:AES256-SHA\x0d?$/m, 'SSL_CIPHER'); | 102 like($r, qr/ssl-cipher:AES256-SHA\x0d?$/m, 'SSL_CIPHER'); |
106 like($r, qr/ssl-sig-alg:SHA1\x0d?$/m, 'SSL_SIG_ALG'); | 103 like($r, qr/ssl-sig-alg:SHA1\x0d?$/m, 'SSL_SIG_ALG'); |
107 like($r, qr/ssl-key-alg:RSA512\x0d?$/m, 'SSL_KEY_ALG'); | 104 like($r, qr/ssl-key-alg:RSA512\x0d?$/m, 'SSL_KEY_ALG'); |
108 like($r, qr/ssl-binary:true/, 'SSL_BINARY'); | 105 like($r, qr/ssl-binary:true/, 'SSL_BINARY'); |
109 | |
110 } | |
111 | 106 |
112 ############################################################################### | 107 ############################################################################### |
113 | 108 |
114 sub pp_get { | 109 sub pp_get { |
115 my ($port, $proxy) = @_; | 110 my ($port, $proxy) = @_; |