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/time_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/time_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/time_SUITE.erl | 36 |
1 files changed, 16 insertions, 20 deletions
diff --git a/erts/emulator/test/time_SUITE.erl b/erts/emulator/test/time_SUITE.erl index 33076c7461..3bd28a6d20 100644 --- a/erts/emulator/test/time_SUITE.erl +++ b/erts/emulator/test/time_SUITE.erl @@ -69,7 +69,7 @@ init_per_testcase(Func, Config) when is_atom(Func), is_list(Config) -> [{testcase, Func}|Config]. -end_per_testcase(_Func, Config) -> +end_per_testcase(_Func, _Config) -> ok. suite() -> [{ct_hooks,[ts_install_cth]}]. @@ -742,25 +742,21 @@ chk_strc(Res0, Res1) -> ok. chk_random_values(FR, TR) -> -% case (FR rem TR == 0) orelse (TR rem FR == 0) of -% true -> - io:format("rand values ~p -> ~p~n", [FR, TR]), - random:seed(268438039, 268440479, 268439161), - Values = lists:map(fun (_) -> random:uniform(1 bsl 65) - (1 bsl 64) end, - lists:seq(1, 100000)), - CheckFun = fun (V) -> - CV = erlang:convert_time_unit(V, FR, TR), - case {(FR*CV) div TR =< V, - (FR*(CV+1)) div TR >= V} of - {true, true} -> - ok; - Failure -> - ?t:fail({Failure, CV, V, FR, TR}) - end - end, - lists:foreach(CheckFun, Values).%; -% false -> ok -% end. + io:format("rand values ~p -> ~p~n", [FR, TR]), + rand:seed(exsplus, {268438039,268440479,268439161}), + Values = lists:map(fun (_) -> rand:uniform(1 bsl 65) - (1 bsl 64) end, + lists:seq(1, 100000)), + CheckFun = fun (V) -> + CV = erlang:convert_time_unit(V, FR, TR), + case {(FR*CV) div TR =< V, + (FR*(CV+1)) div TR >= V} of + {true, true} -> + ok; + Failure -> + ?t:fail({Failure, CV, V, FR, TR}) + end + end, + lists:foreach(CheckFun, Values). chk_values_per_value(_FromRes, _ToRes, |