# HG changeset patch # User Sergey Kandaurov # Date 1684833687 -14400 # Node ID d570dbcad925499d968006ea509798234df09248 # Parent 231b14e2041afed10f5c2e6f62aad298854a6379 Tests: unbreak tests with IO::Socket:SSL lacking SSL_session_key. diff --git a/ssl_certificate.t b/ssl_certificate.t --- a/ssl_certificate.t +++ b/ssl_certificate.t @@ -177,6 +177,8 @@ like(get('default', 8080, $s), qr/defaul TODO: { # ticket key name mismatch prevents session resumption local $TODO = 'not yet' unless $t->has_version('1.23.2'); +local $TODO = 'no SSL_session_key, old IO::Socket::SSL' + if $IO::Socket::SSL::VERSION < 1.965; like(get('default', 8081, $s), qr/default:r/, 'session id context match'); diff --git a/stream_ssl_certificate.t b/stream_ssl_certificate.t --- a/stream_ssl_certificate.t +++ b/stream_ssl_certificate.t @@ -154,6 +154,8 @@ like(get('default', 8080, $s), qr/defaul TODO: { # ticket key name mismatch prevents session resumption local $TODO = 'not yet' unless $t->has_version('1.23.2'); +local $TODO = 'no SSL_session_key, old IO::Socket::SSL' + if $IO::Socket::SSL::VERSION < 1.965; like(get('default', 8081, $s), qr/default:r/, 'session id context match');