diff options
author | Ingela Anderton Andin <ingela@erlang.org> | 2013-04-19 22:07:55 +0200 |
---|---|---|
committer | Ingela Anderton Andin <ingela@erlang.org> | 2013-05-08 10:39:19 +0200 |
commit | f5902d53588784d95674e07055fc2ef0d6fd0ed0 (patch) | |
tree | d8a8db81daea3f7f4d115c763e8b647056ed5c80 /lib/ssl/test/ssl_test_lib.erl | |
parent | 826ff38deec221e306b2f4a9ee529fae1dbbedf7 (diff) | |
download | otp-f5902d53588784d95674e07055fc2ef0d6fd0ed0.tar.gz otp-f5902d53588784d95674e07055fc2ef0d6fd0ed0.tar.bz2 otp-f5902d53588784d95674e07055fc2ef0d6fd0ed0.zip |
ssl: Filter out ECC cipher suites when openssl is buggy
Even in "normal" (not explicitly ECC tests) cases we need to filter out
ECC ciper suites as they are preferd.
Diffstat (limited to 'lib/ssl/test/ssl_test_lib.erl')
-rw-r--r-- | lib/ssl/test/ssl_test_lib.erl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/ssl/test/ssl_test_lib.erl b/lib/ssl/test/ssl_test_lib.erl index 3b63886a07..6069a9da95 100644 --- a/lib/ssl/test/ssl_test_lib.erl +++ b/lib/ssl/test/ssl_test_lib.erl @@ -982,3 +982,15 @@ is_sane_ecc(openssl) -> end; is_sane_ecc(_) -> true. + +cipher_restriction(Config) -> + case is_sane_ecc(openssl) of + false -> + Opts = proplists:get_value(server_opts, Config), + NewConfig = proplists:delete(server_opts, Config), + Restricted0 = ssl:cipher_suites() -- ecdsa_suites(), + Restricted = Restricted0 -- ecdh_rsa_suites(), + [{server_opts, [{ciphers, Restricted} | Opts]} | NewConfig]; + true -> + Config + end. |