diff options
author | Ingela Anderton Andin <[email protected]> | 2018-09-11 10:53:32 +0200 |
---|---|---|
committer | Ingela Anderton Andin <[email protected]> | 2018-09-11 10:53:32 +0200 |
commit | 53b8f2bc723e7a9db8bb01b5c5a2292d12b30b14 (patch) | |
tree | f9cf7f85b45ebc937edcddc3508f632fc390e330 /lib/ssl/test/ssl_basic_SUITE.erl | |
parent | fd591b6f7bb681dd5335a67e66b1d0b8ecf2a76f (diff) | |
parent | b7138087d757f3e4190af92386145a1d942b7b8b (diff) | |
download | otp-53b8f2bc723e7a9db8bb01b5c5a2292d12b30b14.tar.gz otp-53b8f2bc723e7a9db8bb01b5c5a2292d12b30b14.tar.bz2 otp-53b8f2bc723e7a9db8bb01b5c5a2292d12b30b14.zip |
Merge branch 'ingela/ssl/psk-correction/OTP-15285' into maint
* ingela/ssl/psk-correction/OTP-15285:
ssl: Correct handling of all PSK cipher suites
Diffstat (limited to 'lib/ssl/test/ssl_basic_SUITE.erl')
-rw-r--r-- | lib/ssl/test/ssl_basic_SUITE.erl | 30 |
1 files changed, 17 insertions, 13 deletions
diff --git a/lib/ssl/test/ssl_basic_SUITE.erl b/lib/ssl/test/ssl_basic_SUITE.erl index b6d38ee9db..cae491b882 100644 --- a/lib/ssl/test/ssl_basic_SUITE.erl +++ b/lib/ssl/test/ssl_basic_SUITE.erl @@ -5033,18 +5033,22 @@ run_suites(Ciphers, Config, Type) -> [{ciphers, Ciphers} | ssl_test_lib:ssl_options(server_ecdsa_opts, Config)]} end, - ct:pal("ssl_test_lib:filter_suites(~p ~p) -> ~p ", [Ciphers, Version, ssl_test_lib:filter_suites(Ciphers, Version)]), - Result = lists:map(fun(Cipher) -> - cipher(Cipher, Version, Config, ClientOpts, ServerOpts) end, - ssl_test_lib:filter_suites(Ciphers, Version)), - case lists:flatten(Result) of - [] -> - ok; - Error -> - ct:log("Cipher suite errors: ~p~n", [Error]), - ct:fail(cipher_suite_failed_see_test_case_log) - end. - + Suites = ssl_test_lib:filter_suites(Ciphers, Version), + ct:pal("ssl_test_lib:filter_suites(~p ~p) -> ~p ", [Ciphers, Version, Suites]), + Results0 = lists:map(fun(Cipher) -> + cipher(Cipher, Version, Config, ClientOpts, ServerOpts) end, + ssl_test_lib:filter_suites(Ciphers, Version)), + Results = lists:flatten(Results0), + true = length(Results) == length(Suites), + check_cipher_result(Results). + +check_cipher_result([]) -> + ok; +check_cipher_result([ok | Rest]) -> + check_cipher_result(Rest); +check_cipher_result([_ |_] = Error) -> + ct:fail(Error). + erlang_cipher_suite(Suite) when is_list(Suite)-> ssl_cipher_format:suite_definition(ssl_cipher_format:openssl_suite(Suite)); erlang_cipher_suite(Suite) -> @@ -5081,7 +5085,7 @@ cipher(CipherSuite, Version, Config, ClientOpts, ServerOpts) -> case Result of ok -> - []; + [ok]; Error -> [{ErlangCipherSuite, Error}] end. |