diff options
| author | Björn Gustavsson <[email protected]> | 2015-12-09 15:04:28 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-12-11 14:37:46 +0100 |
| commit | 71ddd8c1aba0478fe5aa07bdc8f9e6a86515bb11 (patch) | |
| tree | 83a6fbd1c8bb8c06c03c8a1a4bb8ab1adb770ea0 /erts/emulator/test/hash_SUITE.erl | |
| parent | 80757f9491c72ee262a5910e0b3b02e95b1e5f2a (diff) | |
| download | otp-71ddd8c1aba0478fe5aa07bdc8f9e6a86515bb11.tar.gz otp-71ddd8c1aba0478fe5aa07bdc8f9e6a86515bb11.tar.bz2 otp-71ddd8c1aba0478fe5aa07bdc8f9e6a86515bb11.zip | |
Emulator test suite: Replace use of 'random' with 'rand'
Diffstat (limited to 'erts/emulator/test/hash_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/hash_SUITE.erl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/erts/emulator/test/hash_SUITE.erl b/erts/emulator/test/hash_SUITE.erl index 2ea49467b8..1b2acf48e1 100644 --- a/erts/emulator/test/hash_SUITE.erl +++ b/erts/emulator/test/hash_SUITE.erl @@ -223,11 +223,10 @@ basic_test() -> range_test() -> - random:seed(), F = fun(From,From,_FF) -> ok; (From,To,FF) -> - R = random:uniform(16#FFFFFFFFFFFFFFFF), + R = rand:uniform(16#FFFFFFFFFFFFFFFF), X = erlang:phash(R, From), Y = erlang:phash(R, 16#100000000) - 1, Z = (Y rem From) + 1, @@ -265,14 +264,13 @@ spread_test(N) -> cmp_test(N) -> - % No need to save seed, the error indicates what number caused it. - random:seed(), do_cmp_hashes(N,8). + do_cmp_hashes(0,_) -> ok; do_cmp_hashes(N,Steps) -> - R0 = random:uniform(1 bsl Steps - 1) + random:uniform(16#FFFFFFFF), - R = case random:uniform(2) of + R0 = rand:uniform(1 bsl Steps - 1) + rand:uniform(16#FFFFFFFF), + R = case rand:uniform(2) of 1 -> R0; _ -> |