You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
2.3 KiB
56 lines
2.3 KiB
10 months ago
|
From 15c213953def3d7a60a76bd55fbd97fe9289b5d3 Mon Sep 17 00:00:00 2001
|
||
|
|
From: tigro <tigro@msvsphere-os.ru>
|
||
|
|
Date: Fri, 26 Apr 2024 13:05:55 +0300
|
||
|
|
Subject: [PATCH] Allow getting any valid min/max protocol version
|
||
|
|
|
||
|
|
---
|
||
|
|
t/local/09_ctx_new.t | 21 +++++++++++++++++----
|
||
|
|
1 file changed, 17 insertions(+), 4 deletions(-)
|
||
|
|
|
||
|
|
diff --git a/t/local/09_ctx_new.t b/t/local/09_ctx_new.t
|
||
|
|
index c584856..c58cdde 100644
|
||
|
|
--- a/t/local/09_ctx_new.t
|
||
|
|
+++ b/t/local/09_ctx_new.t
|
||
|
|
@@ -12,6 +12,19 @@ Net::SSLeay::load_error_strings();
|
||
|
|
Net::SSLeay::add_ssl_algorithms();
|
||
|
|
Net::SSLeay::OpenSSL_add_all_algorithms();
|
||
|
|
|
||
|
|
+sub is_known_proto_version {
|
||
|
|
+ return 1 if $_[0] == 0x0000; # Automatic version selection
|
||
|
|
+ return 1 if $_[0] == Net::SSLeay::SSL3_VERSION(); # OpenSSL 0.9.8+
|
||
|
|
+ return 1 if $_[0] == Net::SSLeay::TLS1_VERSION(); # OpenSSL 0.9.8+
|
||
|
|
+ return 1 if $_[0] == Net::SSLeay::TLS1_1_VERSION(); # OpenSSL 0.9.8+
|
||
|
|
+ return 1 if $_[0] == Net::SSLeay::TLS1_2_VERSION(); # OpenSSL 0.9.8+
|
||
|
|
+ if (eval { Net::SSLeay::TLS1_3_VERSION() }) {
|
||
|
|
+ return 1 if $_[0] == Net::SSLeay::TLS1_3_VERSION(); # OpenSSL 1.1.1+
|
||
|
|
+ }
|
||
|
|
+
|
||
|
|
+ return;
|
||
|
|
+}
|
||
|
|
+
|
||
|
|
# Shortcuts from SSLeay.xs
|
||
|
|
my $ctx = Net::SSLeay::CTX_new();
|
||
|
|
ok($ctx, 'CTX_new');
|
||
|
|
@@ -129,14 +142,14 @@ if ($ctx_tls && exists &Net::SSLeay::CTX_get_min_proto_version)
|
||
|
|
}
|
||
|
|
my $ver;
|
||
|
|
$ver = Net::SSLeay::CTX_get_min_proto_version($ctx_tls);
|
||
|
|
- is($ver, $min_ver, 'TLS_method CTX has automatic minimum version');
|
||
|
|
+ ok(is_known_proto_version($ver), 'TLS_method CTX has known minimum version');
|
||
|
|
$ver = Net::SSLeay::CTX_get_max_proto_version($ctx_tls);
|
||
|
|
- is($ver, 0, 'TLS_method CTX has automatic maximum version');
|
||
|
|
+ ok(is_known_proto_version($ver), 'TLS_method CTX has known maximum version');
|
||
|
|
|
||
|
|
$ver = Net::SSLeay::get_min_proto_version($ssl_tls);
|
||
|
|
- is($ver, $min_ver, 'SSL from TLS_method CTX has automatic minimum version');
|
||
|
|
+ ok(is_known_proto_version($ver), 'SSL from TLS_method CTX has known minimum version');
|
||
|
|
$ver = Net::SSLeay::get_max_proto_version($ssl_tls);
|
||
|
|
- is($ver, 0, 'SSL from TLS_method CTX has automatic maximum version');
|
||
|
|
+ ok(is_known_proto_version($ver), 'SSL from TLS_method CTX has known maximum version');
|
||
|
|
|
||
|
|
# First see if our CTX has min and max settings enabled
|
||
|
|
$ver = Net::SSLeay::CTX_get_min_proto_version($ctx_tls_client);
|
||
|
|
--
|
||
|
|
2.44.0
|
||
|
|
|