diff options
| author | Ingela Anderton Andin <[email protected]> | 2016-09-02 11:11:28 +0200 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2016-09-02 11:11:28 +0200 |
| commit | 8a090f6a082f82a3ff4d2ec07bec4d8c309b9bff (patch) | |
| tree | def3ee7bd15e77d309a984d62e7540b939bf735a /lib/ssl/test/ssl_test_lib.erl | |
| parent | 82e5d81d57676a9e039d93544583895e92840beb (diff) | |
| download | otp-8a090f6a082f82a3ff4d2ec07bec4d8c309b9bff.tar.gz otp-8a090f6a082f82a3ff4d2ec07bec4d8c309b9bff.tar.bz2 otp-8a090f6a082f82a3ff4d2ec07bec4d8c309b9bff.zip | |
ssl: Add check in test framework for crypto support
Avoid to run tests of algorithms not supported by crypto.
Diffstat (limited to 'lib/ssl/test/ssl_test_lib.erl')
| -rw-r--r-- | lib/ssl/test/ssl_test_lib.erl | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/lib/ssl/test/ssl_test_lib.erl b/lib/ssl/test/ssl_test_lib.erl index fd8af5efaa..a92b978ca9 100644 --- a/lib/ssl/test/ssl_test_lib.erl +++ b/lib/ssl/test/ssl_test_lib.erl @@ -807,22 +807,24 @@ send_selected_port(_,_,_) -> rsa_suites(CounterPart) -> ECC = is_sane_ecc(CounterPart), FIPS = is_fips(CounterPart), + CryptoSupport = crypto:supports(), + Ciphers = proplists:get_value(ciphers, CryptoSupport), lists:filter(fun({rsa, des_cbc, sha}) when FIPS == true -> false; ({dhe_rsa, des_cbc, sha}) when FIPS == true -> false; - ({rsa, _, _}) -> - true; - ({dhe_rsa, _, _}) -> - true; - ({ecdhe_rsa, _, _}) when ECC == true -> - true; - ({rsa, _, _, _}) -> - true; - ({dhe_rsa, _, _,_}) -> - true; - ({ecdhe_rsa, _, _,_}) when ECC == true -> - true; + ({rsa, Cipher, _}) -> + lists:member(Cipher, Ciphers); + ({dhe_rsa, Cipher, _}) -> + lists:member(Cipher, Ciphers); + ({ecdhe_rsa, Cipher, _}) when ECC == true -> + lists:member(Cipher, Ciphers); + ({rsa, Cipher, _, _}) -> + lists:member(Cipher, Ciphers); + ({dhe_rsa, Cipher, _,_}) -> + lists:member(Cipher, Ciphers); + ({ecdhe_rsa, Cipher, _,_}) when ECC == true -> + lists:member(Cipher, Ciphers); (_) -> false end, |