Mercurial > hg > nginx-tests
comparison stream_ssl_variables.t @ 974:882267679006
Tests: simplified parallel modifications in tests.
Mail tests were simplified in c227348453db.
author | Andrey Zelenkov <zelenkov@nginx.com> |
---|---|
date | Tue, 12 Jul 2016 17:39:03 +0300 |
parents | eb111c5f7556 |
children | 43eedbfea090 |
comparison
equal
deleted
inserted
replaced
973:7d7aef8b9f3a | 974:882267679006 |
---|---|
55 stream { | 55 stream { |
56 ssl_certificate_key localhost.key; | 56 ssl_certificate_key localhost.key; |
57 ssl_certificate localhost.crt; | 57 ssl_certificate localhost.crt; |
58 | 58 |
59 server { | 59 server { |
60 listen 127.0.0.1:%%PORT_0%%; | 60 listen 127.0.0.1:8080; |
61 listen 127.0.0.1:%%PORT_1%% ssl; | 61 listen 127.0.0.1:8081 ssl; |
62 return $ssl_session_reused:$ssl_session_id:$ssl_cipher:$ssl_protocol; | 62 return $ssl_session_reused:$ssl_session_id:$ssl_cipher:$ssl_protocol; |
63 | 63 |
64 ssl_session_cache builtin; | 64 ssl_session_cache builtin; |
65 } | 65 } |
66 | 66 |
67 server { | 67 server { |
68 listen 127.0.0.1:%%PORT_2%% ssl; | 68 listen 127.0.0.1:8082 ssl; |
69 return $ssl_server_name; | 69 return $ssl_server_name; |
70 } | 70 } |
71 } | 71 } |
72 | 72 |
73 EOF | 73 EOF |
96 | 96 |
97 my ($s, $ssl); | 97 my ($s, $ssl); |
98 | 98 |
99 is(stream()->read(), ':::', 'no ssl'); | 99 is(stream()->read(), ':::', 'no ssl'); |
100 | 100 |
101 ($s, $ssl) = get_ssl_socket(port(1)); | 101 ($s, $ssl) = get_ssl_socket(port(8081)); |
102 like(Net::SSLeay::read($ssl), qr/^\.:(\w{64})?:[\w-]+:(TLS|SSL)v(\d|\.)+$/, | 102 like(Net::SSLeay::read($ssl), qr/^\.:(\w{64})?:[\w-]+:(TLS|SSL)v(\d|\.)+$/, |
103 'ssl variables'); | 103 'ssl variables'); |
104 | 104 |
105 my $ses = Net::SSLeay::get_session($ssl); | 105 my $ses = Net::SSLeay::get_session($ssl); |
106 ($s, $ssl) = get_ssl_socket(port(1), $ses); | 106 ($s, $ssl) = get_ssl_socket(port(8081), $ses); |
107 like(Net::SSLeay::read($ssl), qr/^r:\w{64}:[\w-]+:(TLS|SSL)v(\d|\.)+$/, | 107 like(Net::SSLeay::read($ssl), qr/^r:\w{64}:[\w-]+:(TLS|SSL)v(\d|\.)+$/, |
108 'ssl variables - session reused'); | 108 'ssl variables - session reused'); |
109 | 109 |
110 ($s, $ssl) = get_ssl_socket(port(2), undef, 'example.com'); | 110 ($s, $ssl) = get_ssl_socket(port(8082), undef, 'example.com'); |
111 is(Net::SSLeay::ssl_read_all($ssl), 'example.com', 'ssl server name'); | 111 is(Net::SSLeay::ssl_read_all($ssl), 'example.com', 'ssl server name'); |
112 | 112 |
113 ($s, $ssl) = get_ssl_socket(port(2)); | 113 ($s, $ssl) = get_ssl_socket(port(8082)); |
114 is(Net::SSLeay::ssl_read_all($ssl), '', 'ssl server name empty'); | 114 is(Net::SSLeay::ssl_read_all($ssl), '', 'ssl server name empty'); |
115 | 115 |
116 ############################################################################### | 116 ############################################################################### |
117 | 117 |
118 sub get_ssl_socket { | 118 sub get_ssl_socket { |