diff options
| author | Björn Gustavsson <[email protected]> | 2015-06-05 10:19:23 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-06-05 10:19:23 +0200 |
| commit | 24a161d8c479e70ad55ebac18cd92ecc41dd607c (patch) | |
| tree | a8a820696df69100100d11e282cdde291303bc9a /lib/kernel/test/erl_distribution_wb_SUITE.erl | |
| parent | ccb7207b8ee271048905ef9b11448f98c645d533 (diff) | |
| parent | 34e019dc29044e6f3b8d256a20f4ca83a3ac24a7 (diff) | |
| download | otp-24a161d8c479e70ad55ebac18cd92ecc41dd607c.tar.gz otp-24a161d8c479e70ad55ebac18cd92ecc41dd607c.tar.bz2 otp-24a161d8c479e70ad55ebac18cd92ecc41dd607c.zip | |
Merge branch 'bjorn/kernel/cuddle-with-tests'
* bjorn/kernel/cuddle-with-tests:
Clean up rpc_SUITE:call_benchmark/1
Eliminate use of erlang:now/0 for generating random numbers
Eliminate use of erlang:now/0 for measuring time
Eliminate use of erlang:now/0 for generating unique node names
Diffstat (limited to 'lib/kernel/test/erl_distribution_wb_SUITE.erl')
| -rw-r--r-- | lib/kernel/test/erl_distribution_wb_SUITE.erl | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/lib/kernel/test/erl_distribution_wb_SUITE.erl b/lib/kernel/test/erl_distribution_wb_SUITE.erl index 3b8b2d9150..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) -> @@ -712,13 +709,9 @@ get_nodenames(N, T) -> get_nodenames(0, _, Acc) -> Acc; get_nodenames(N, T, Acc) -> - {A, B, C} = now(), - get_nodenames(N-1, T, [list_to_atom(atom_to_list(?MODULE) + U = erlang:unique_integer([positive]), + get_nodenames(N-1, T, [list_to_atom(?MODULE_STRING ++ "-" ++ atom_to_list(T) ++ "-" - ++ integer_to_list(A) - ++ "-" - ++ integer_to_list(B) - ++ "-" - ++ integer_to_list(C)) | Acc]). + ++ integer_to_list(U)) | Acc]). |