aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2015-05-26 14:24:57 +0200
committerBjörn Gustavsson <[email protected]>2015-05-27 04:51:12 +0200
commit73441d91d3f229f2046fa8ca917782c0a720c6e3 (patch)
tree95e46a76d873429ab2e76ff97fcbead32c92d199
parent5ab52ccbdd90ec7ab2a35294ca362f53e52fdf3d (diff)
downloadotp-73441d91d3f229f2046fa8ca917782c0a720c6e3.tar.gz
otp-73441d91d3f229f2046fa8ca917782c0a720c6e3.tar.bz2
otp-73441d91d3f229f2046fa8ca917782c0a720c6e3.zip
Eliminate use of erlang:now/0 for generating random numbers
-rw-r--r--lib/kernel/test/erl_distribution_wb_SUITE.erl5
-rw-r--r--lib/kernel/test/gen_tcp_misc_SUITE.erl5
2 files changed, 4 insertions, 6 deletions
diff --git a/lib/kernel/test/erl_distribution_wb_SUITE.erl b/lib/kernel/test/erl_distribution_wb_SUITE.erl
index fcddf0dd16..8e2bbf5b64 100644
--- a/lib/kernel/test/erl_distribution_wb_SUITE.erl
+++ b/lib/kernel/test/erl_distribution_wb_SUITE.erl
@@ -451,11 +451,8 @@ close_pair({Client, Server}) ->
%% MD5 hashing
%%
-%% This is no proper random number, but that is not really important in
-%% this test
gen_challenge() ->
- {_,_,N} = erlang:now(),
- N.
+ rand:uniform(1000000).
%% Generate a message digest from Challenge number and Cookie
gen_digest(Challenge, Cookie) when is_integer(Challenge), is_atom(Cookie) ->
diff --git a/lib/kernel/test/gen_tcp_misc_SUITE.erl b/lib/kernel/test/gen_tcp_misc_SUITE.erl
index 0a1d7900c6..30c46f3048 100644
--- a/lib/kernel/test/gen_tcp_misc_SUITE.erl
+++ b/lib/kernel/test/gen_tcp_misc_SUITE.erl
@@ -2137,9 +2137,10 @@ send_timeout(Config) when is_list(Config) ->
ParaFun(false),
ParaFun(true),
ok.
+
mad_sender(S) ->
- {_, _, USec} = now(),
- case gen_tcp:send(S, integer_to_list(USec)) of
+ U = rand:uniform(1000000),
+ case gen_tcp:send(S, integer_to_list(U)) of
ok ->
mad_sender(S);
Err ->