# HG changeset patch # User Sergey Kandaurov # Date 1684773873 -14400 # Node ID 231b14e2041afed10f5c2e6f62aad298854a6379 # Parent a797d7428fa529e843181d802dd85bc4306b89e9 Tests: unbreak ssl_stapling.t after IO::Socket::SSL refactoring. Previously, the test used to check the established SSL/TLS protocol version using Net::SSLeay on the client side. Now it is provided on the server side within a server response. Added missing bits to make this actually work. diff --git a/ssl_stapling.t b/ssl_stapling.t --- a/ssl_stapling.t +++ b/ssl_stapling.t @@ -57,6 +57,8 @@ http { ssl_ciphers DEFAULT:ECCdraft; + add_header X-SSL-Protocol $ssl_protocol always; + server { listen 127.0.0.1:8443 ssl; listen 127.0.0.1:8080; @@ -341,7 +343,7 @@ sub staple { } sub test_tls13 { - return http_get('/', start => 1, SSL => 1) =~ /TLSv1.3/; + return http_get('/', SSL => 1) =~ /TLSv1.3/; } ###############################################################################