File 4456-Skip-tc-when-TLS-version-is-not-supported.... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 4456-Skip-tc-when-TLS-version-is-not-supported.patch of Package erlang (Revision 3ae3e8087768a76d5dc164cd73323247)

Currently displaying revision 3ae3e8087768a76d5dc164cd73323247 , Show latest

From 05546fec9d60cc806439ccc1ec70b3b5b267b540 Mon Sep 17 00:00:00 2001
From: Raimo Niskanen <raimo@erlang.org>
Date: Fri, 30 Sep 2022 11:29:52 +0200
Subject: [PATCH 06/27] Skip tc when TLS version is not supported

---
 lib/ssl/test/ssl_bench_SUITE.erl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/lib/ssl/test/ssl_bench_SUITE.erl b/lib/ssl/test/ssl_bench_SUITE.erl
index 908aa4540a..41970ba66b 100644
--- a/lib/ssl/test/ssl_bench_SUITE.erl
+++ b/lib/ssl/test/ssl_bench_SUITE.erl
@@ -118,6 +118,23 @@ end_per_group(_GroupName, _Config) ->
 
 %%-------
 
+init_per_testcase(Func, Conf)
+  when Func =:= setup_sequential_13;
+       Func =:= setup_concurrent_13;
+       Func =:= payload_13 ->
+    try
+        TLSVersion = 'tlsv1.3',
+        {supported, SSLVersions} =
+            lists:keyfind(supported, 1, ssl:versions()),
+        case lists:member(TLSVersion, SSLVersions) of
+            true ->
+                Conf;
+            false ->
+                {skipped, {not_supported,TLSVersion,SSLVersions}}
+        end
+    catch Class : Reason : Stacktrace ->
+            {failed, {Class,Reason,Stacktrace}}
+    end;
 init_per_testcase(_Func, Conf) ->
     Conf.
 
-- 
2.35.3

Places

File 4456-Skip-tc-when-TLS-version-is-not-supported.patch of Package erlang (Revision 3ae3e8087768a76d5dc164cd73323247)

Places