File 4453-Fix-cipher-filter.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 4453-Fix-cipher-filter.patch of Package erlang

From 492eb8ef01852f2b08265f17965b5455a7d08023 Mon Sep 17 00:00:00 2001
From: Raimo Niskanen <raimo@erlang.org>
Date: Fri, 23 Sep 2022 18:04:03 +0200
Subject: [PATCH 03/27] Fix cipher filter

---
 lib/ssl/test/ssl_dist_bench_SUITE.erl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/lib/ssl/test/ssl_dist_bench_SUITE.erl b/lib/ssl/test/ssl_dist_bench_SUITE.erl
index 58fa00ff2f..f110931930 100644
--- a/lib/ssl/test/ssl_dist_bench_SUITE.erl
+++ b/lib/ssl/test/ssl_dist_bench_SUITE.erl
@@ -85,7 +85,11 @@ init_per_suite(Config) ->
     Digest = sha1,
     ECCurve = secp521r1,
     TLSVersion = 'tlsv1.2',
-    TLSCipher = {ecdhe_ecdsa,aes_128_cbc,sha256,sha256},
+    TLSCipher =
+        #{key_exchange => ecdhe_ecdsa,
+          cipher       => aes_128_cbc,
+          mac          => sha256,
+          prf          => sha256},
     %%
     Node = node(),
     try
@@ -102,7 +106,12 @@ init_per_suite(Config) ->
             throw(
               {skipped,
                "SSL does not support " ++ term_to_string(ECCurve)}),
-        lists:member(TLSCipher, ssl:cipher_suites(default, TLSVersion)) orelse
+        TLSCipherKeys = maps:keys(TLSCipher),
+        lists:any(
+          fun (Cipher) ->
+                  maps:with(TLSCipherKeys, Cipher) =:= TLSCipher
+          end,
+          ssl:cipher_suites(default, TLSVersion)) orelse
             throw(
               {skipped,
                "SSL does not support " ++ term_to_string(TLSCipher)})
-- 
2.35.3

Places

File 4453-Fix-cipher-filter.patch of Package erlang

Places