diff options
| author | Björn Gustavsson <[email protected]> | 2015-05-26 14:24:57 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-05-27 04:51:12 +0200 |
| commit | 73441d91d3f229f2046fa8ca917782c0a720c6e3 (patch) | |
| tree | 95e46a76d873429ab2e76ff97fcbead32c92d199 /lib/kernel/test/gen_tcp_misc_SUITE.erl | |
| parent | 5ab52ccbdd90ec7ab2a35294ca362f53e52fdf3d (diff) | |
| download | otp-73441d91d3f229f2046fa8ca917782c0a720c6e3.tar.gz otp-73441d91d3f229f2046fa8ca917782c0a720c6e3.tar.bz2 otp-73441d91d3f229f2046fa8ca917782c0a720c6e3.zip | |
Eliminate use of erlang:now/0 for generating random numbers
Diffstat (limited to 'lib/kernel/test/gen_tcp_misc_SUITE.erl')
| -rw-r--r-- | lib/kernel/test/gen_tcp_misc_SUITE.erl | 5 |
1 files changed, 3 insertions, 2 deletions
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 -> |