File 0117-ssl-Let-test-framwork-handle-cipher-option.patch of Package erlang

From 9fb46fb1029480f15fb080ffb8f0b4806d658f0f Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Wed, 24 Mar 2021 13:31:47 +0100
Subject: [PATCH 1/2] ssl: Let test framwork handle cipher option

The option is not part of what is beeing tested
and the framework will make sure it is set in
an interopable way.
---
 lib/ssl/test/openssl_session_SUITE.erl | 29 ++++++--------------------
 1 file changed, 6 insertions(+), 23 deletions(-)

diff --git a/lib/ssl/test/openssl_session_SUITE.erl b/lib/ssl/test/openssl_session_SUITE.erl
index 08369733dc..2dcec86579 100644
--- a/lib/ssl/test/openssl_session_SUITE.erl
+++ b/lib/ssl/test/openssl_session_SUITE.erl
@@ -168,7 +168,6 @@ reuse_session_erlang_server(Config) when is_list(Config) ->
     
     {_, ServerNode, _} = ssl_test_lib:run_where(Config),
     
-    Ciphers = common_ciphers(Version),
 
     Data = "From openssl to erlang",
     
@@ -176,14 +175,13 @@ reuse_session_erlang_server(Config) when is_list(Config) ->
                                         {from, self()},
                                         {mfa, {ssl_test_lib, active_recv, [length(Data)]}},
                                         {reconnect_times, 5},
-                                        {options, [{ciphers, Ciphers},
-                                                   {versions, [Version]}| ServerOpts]}]),
+                                        {options, [{versions, [Version]}| ServerOpts]}]),
     Port = ssl_test_lib:inet_port(Server),
 
     
     {_Client, OpenSSLPort} = ssl_test_lib:start_client(openssl, [{port, Port}, 
                                                                  {reconnect, true},
-                                                                 {options, [{ciphers, Ciphers} | ClientOpts]}, 
+                                                                 {options, ClientOpts}, 
                                                                  return_port], Config),
     true = port_command(OpenSSLPort, Data),
     
@@ -200,9 +198,8 @@ reuse_session_erlang_client(Config) when is_list(Config) ->
     Version = ssl_test_lib:protocol_version(Config),
 
     {ClientNode, _, Hostname} = ssl_test_lib:run_where(Config),
-    Ciphers = common_ciphers(Version),
     Server = ssl_test_lib:start_server(openssl, [], 
-                                       [{server_opts, [{ciphers, Ciphers} | ServerOpts]} | Config]),
+                                       [{server_opts, ServerOpts} | Config]),
     Port = ssl_test_lib:inet_port(Server),    
     
     Client0 =
@@ -212,7 +209,6 @@ reuse_session_erlang_client(Config) when is_list(Config) ->
                                    {from, self()}, 
                                    {options, [{reuse_sessions, save}, 
                                               {verify, verify_peer},
-                                              {ciphers, Ciphers},
                                               {versions, [Version]} | ClientOpts]}]),
     
     SID = receive
@@ -226,9 +222,8 @@ reuse_session_erlang_client(Config) when is_list(Config) ->
         ssl_test_lib:start_client([{node, ClientNode},
                                    {port, Port}, {host, Hostname},
                                    {mfa, {ssl_test_lib, session_id, []}},
-                                   {from, self()},  {options, [ {ciphers, Ciphers},  
-                                                                {versions, [Version]},
-                                                                {reuse_session, SID} | ClientOpts]}]),
+                                   {from, self()},  {options, [{versions, [Version]},
+                                                               {reuse_session, SID} | ClientOpts]}]),
     receive
         {Client1, SID} ->
             ok
@@ -245,8 +240,7 @@ reuse_session_erlang_client(Config) when is_list(Config) ->
         ssl_test_lib:start_client([{node, ClientNode},
                                    {port, Port}, {host, Hostname},
                                    {mfa, {ssl_test_lib, session_id, []}},
-                                   {from, self()},  {options, [{ciphers, Ciphers},
-                                                               {versions, [Version]} | ClientOpts]}]),
+                                   {from, self()},  {options, [{versions, [Version]} | ClientOpts]}]),
     receive
         {Client2, ID} ->
             case ID of
@@ -258,14 +252,3 @@ reuse_session_erlang_client(Config) when is_list(Config) ->
     end,
     ssl_test_lib:close(Client2).
 
-
-%%--------------------------------------------------------------------
-%% Internal functions ------------------------------------------------
-%%--------------------------------------------------------------------
-
-common_ciphers(Version) ->
-    OpenSSLCiphers = ssl_test_lib:openssl_ciphers(),
-    ErlOpenSSLCiphers = [ssl:str_to_suite(C) || C <- OpenSSLCiphers],
-    ErlCiphers = ssl:cipher_suites(all, Version),
-    [Suite || Suite <- ErlOpenSSLCiphers, lists:member(Suite, ErlCiphers)].
-
-- 
2.26.2