eba21f49fa
this required a switch to change the sync strategy based on rebar parameter. However tests could be slow on macbook with OTP16 and sync - so timeouts added in unit tests, and ct tests sync_startegy changed to not sync for OTP16.
58 lines
1.1 KiB
Erlang
58 lines
1.1 KiB
Erlang
%% Generalized random module that offers a backwards compatible API
|
|
%% around some of the changes in rand, crypto and for time units.
|
|
|
|
-module(leveled_rand).
|
|
|
|
%% API
|
|
-export([
|
|
uniform/0,
|
|
uniform/1,
|
|
seed/0,
|
|
rand_bytes/1
|
|
]).
|
|
|
|
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
%%%===================================================================
|
|
%%% New (r19+) rand style functions
|
|
%%%===================================================================
|
|
-ifndef(old_rand).
|
|
uniform() ->
|
|
rand:uniform().
|
|
|
|
uniform(N) ->
|
|
rand:uniform(N).
|
|
|
|
seed() ->
|
|
ok.
|
|
|
|
rand_bytes(Size) ->
|
|
crypto:strong_rand_bytes(Size).
|
|
|
|
-else.
|
|
%%%===================================================================
|
|
%%% Old (r18) random style functions
|
|
%%%===================================================================
|
|
uniform() ->
|
|
random:uniform().
|
|
|
|
uniform(N) ->
|
|
random:uniform(N).
|
|
|
|
seed() ->
|
|
SW = os:timestamp(),
|
|
random:seed(erlang:phash2(self()), element(2, SW), element(3, SW)).
|
|
|
|
rand_bytes(Size) ->
|
|
crypto:rand_bytes(Size).
|
|
|
|
-endif.
|
|
|
|
|
|
-ifdef(TEST).
|
|
|
|
rand_test() ->
|
|
?assertMatch(true, uniform() < 1).
|
|
|
|
-endif.
|