diff options
| author | Lars Thorsen <[email protected]> | 2018-01-12 08:27:55 +0100 |
|---|---|---|
| committer | Lars Thorsen <[email protected]> | 2018-03-05 12:37:10 +0100 |
| commit | 113ce3fccf83ed7983ea72ede32b277107c709f0 (patch) | |
| tree | 1ab93f38d1702e2869f541f48b1e5e95e7e78dba /lib/ssl | |
| parent | 5b17edc4b1091fd8e3618615be36f9b993cbed9c (diff) | |
| download | otp-113ce3fccf83ed7983ea72ede32b277107c709f0.tar.gz otp-113ce3fccf83ed7983ea72ede32b277107c709f0.tar.bz2 otp-113ce3fccf83ed7983ea72ede32b277107c709f0.zip | |
[ssl] Fix hanging test case on outdated lab machine
Diffstat (limited to 'lib/ssl')
| -rw-r--r-- | lib/ssl/test/ssl_engine_SUITE.erl | 39 |
1 files changed, 22 insertions, 17 deletions
diff --git a/lib/ssl/test/ssl_engine_SUITE.erl b/lib/ssl/test/ssl_engine_SUITE.erl index bc221d35fd..71891356e8 100644 --- a/lib/ssl/test/ssl_engine_SUITE.erl +++ b/lib/ssl/test/ssl_engine_SUITE.erl @@ -39,23 +39,28 @@ init_per_suite(Config) -> catch crypto:stop(), try crypto:start() of ok -> - ssl_test_lib:clean_start(), - case crypto:get_test_engine() of - {ok, EngineName} -> - try crypto:engine_load(<<"dynamic">>, - [{<<"SO_PATH">>, EngineName}, - <<"LOAD">>], - []) of - {ok, Engine} -> - [{engine, Engine} |Config]; - {error, Reason} -> - ct:pal("Reason ~p", [Reason]), - {skip, "No dynamic engine support"} - catch error:notsup -> - {skip, "No engine support in OpenSSL"} - end; - {error, notexist} -> - {skip, "Test engine not found"} + case crypto:info_lib() of + [{_,_, <<"OpenSSL 1.0.1s-freebsd 1 Mar 2016">>}] -> + {skip, "Problem with engine on OpenSSL 1.0.1s-freebsd"}; + _ -> + ssl_test_lib:clean_start(), + case crypto:get_test_engine() of + {ok, EngineName} -> + try crypto:engine_load(<<"dynamic">>, + [{<<"SO_PATH">>, EngineName}, + <<"LOAD">>], + []) of + {ok, Engine} -> + [{engine, Engine} |Config]; + {error, Reason} -> + ct:pal("Reason ~p", [Reason]), + {skip, "No dynamic engine support"} + catch error:notsup -> + {skip, "No engine support in OpenSSL"} + end; + {error, notexist} -> + {skip, "Test engine not found"} + end end catch _:_ -> {skip, "Crypto did not start"} |