diff options
| author | Raimo Niskanen <[email protected]> | 2018-12-03 10:31:10 +0100 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2018-12-03 10:31:10 +0100 |
| commit | 5eb265f798ce4115654e1303f9a199015a9c7a9a (patch) | |
| tree | b264ad9fcc37fd95ae9ca18755192afc78494519 /lib/crypto/test | |
| parent | cd7a8c3feaeb500ba7d80129a19693edc0a54776 (diff) | |
| parent | 098c8f504c61646a73c5f0e3a4132c15fc6e8219 (diff) | |
| download | otp-5eb265f798ce4115654e1303f9a199015a9c7a9a.tar.gz otp-5eb265f798ce4115654e1303f9a199015a9c7a9a.tar.bz2 otp-5eb265f798ce4115654e1303f9a199015a9c7a9a.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/crypto/test')
| -rw-r--r-- | lib/crypto/test/crypto_SUITE.erl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl index 8e20304dc9..82d098ebd1 100644 --- a/lib/crypto/test/crypto_SUITE.erl +++ b/lib/crypto/test/crypto_SUITE.erl @@ -38,6 +38,7 @@ all() -> mod_pow, exor, rand_uniform, + rand_threads, rand_plugin, rand_plugin_s ]. @@ -614,6 +615,25 @@ rand_uniform(Config) when is_list(Config) -> 10 = byte_size(crypto:strong_rand_bytes(10)). %%-------------------------------------------------------------------- +rand_threads() -> + [{doc, "strong_rand_bytes in parallel threads"}]. +rand_threads(Config) when is_list(Config) -> + %% This will crash the emulator on at least one version of libcrypto + %% with buggy multithreading in RAND_bytes(). + %% The test needs to run at least a few minutes... + NofThreads = 4, + Fun = fun F() -> crypto:strong_rand_bytes(16), F() end, + PidRefs = [spawn_monitor(Fun) || _ <- lists:seq(1, NofThreads)], +%%% The test case takes too much time to run. +%%% Keep it around for reference by setting it down to just 10 seconds. +%%% receive after 10 * 60 * 1000 -> ok end, % 10 minutes + receive after 10 * 1000 -> ok end, % 10 seconds + spawn_link(fun () -> receive after 5000 -> exit(timeout) end end), + [exit(Pid, stop) || {Pid,_Ref} <- PidRefs], + [receive {'DOWN',Ref,_,_,stop} -> ok end || {_Pid,Ref} <- PidRefs], + ok. + +%%-------------------------------------------------------------------- rand_plugin() -> [{doc, "crypto rand plugin testing (implicit state / process dictionary)"}]. rand_plugin(Config) when is_list(Config) -> |