changeset 1845:65b1dd07c0e4

Tests: fixed stream_ssl_variables.t.t with LibreSSL and TLSv1.3. LibreSSL does not support session reuse with TLSv1.3.
author Maxim Dounin <mdounin@mdounin.ru>
date Thu, 23 Mar 2023 19:50:23 +0300
parents 6705a3760f48
children 9d98c2ad3126
files stream_ssl_variables.t
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/stream_ssl_variables.t
+++ b/stream_ssl_variables.t
@@ -101,11 +101,17 @@ is(stream('127.0.0.1:' . port(8080))->re
 like(Net::SSLeay::read($ssl), qr/^\.:(\w{64})?:[\w-]+:(TLS|SSL)v(\d|\.)+$/,
 	'ssl variables');
 
+TODO: {
+local $TODO = 'no TLSv1.3 sessions in LibreSSL'
+	if $t->has_module('LibreSSL') && test_tls13();
+
 my $ses = Net::SSLeay::get_session($ssl);
 ($s, $ssl) = get_ssl_socket(port(8081), $ses);
 like(Net::SSLeay::read($ssl), qr/^r:(\w{64})?:[\w-]+:(TLS|SSL)v(\d|\.)+$/,
 	'ssl variables - session reused');
 
+}
+
 SKIP: {
 skip 'no sni', 3 unless $t->has_module('sni');
 
@@ -123,6 +129,11 @@ is(Net::SSLeay::ssl_read_all($ssl), '', 
 
 ###############################################################################
 
+sub test_tls13 {
+	($s, $ssl) = get_ssl_socket(port(8081));
+	Net::SSLeay::read($ssl) =~ /TLSv1.3/;
+}
+
 sub get_ssl_socket {
 	my ($port, $ses, $name) = @_;