Mercurial > hg > nginx-tests

comparison stream_proxy_protocol2_tlv.t @ 1987:a095b971fbcc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
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) = @_;