Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

lib/dialyzer/test: replace random:uniform/1 by rand:uniform/1 #9181

Merged
merged 1 commit into from
Dec 16, 2024
Merged

lib/dialyzer/test: replace random:uniform/1 by rand:uniform/1 #9181

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 10 additions & 10 deletions lib/dialyzer/test/indent_SUITE_data/src/map_galore.erl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1527,7 +1527,7 @@ float_int_compare() ->

numeric_keys(N) ->
lists:foldl(fun(_,Acc) ->
Int = random:uniform(N*4) - N*2,
Int = rand:uniform(N*4) - N*2,
Float = float(Int),
[Int, Float, Float * 0.99, Float * 1.01 | Acc]
end,
Expand Down Expand Up @@ -1558,7 +1558,7 @@ do_compare([Gen1, Gen2]) ->

%% Change one key from int to float (or vice versa) and check compare
ML1 = maps:to_list(M1),
{K1,V1} = lists:nth(random:uniform(length(ML1)), ML1),
{K1,V1} = lists:nth(rand:uniform(length(ML1)), ML1),
case K1 of
I when is_integer(I) ->
case maps:find(float(I),M1) of
Expand Down Expand Up @@ -1649,9 +1649,9 @@ cmp_others(T1, T2, _) ->

map_gen(Pairs, Size) ->
{_,L} = lists:foldl(fun(_, {Keys, Acc}) ->
KI = random:uniform(tuple_size(Keys)),
KI = rand:uniform(tuple_size(Keys)),
K = element(KI,Keys),
KV = element(random:uniform(tuple_size(K)), K),
KV = element(rand:uniform(tuple_size(K)), K),
{erlang:delete_element(KI,Keys), [KV | Acc]}
end,
{Pairs, []},
Expand Down Expand Up @@ -1691,15 +1691,15 @@ term_gen_recursive(Leafs, Flags, Depth) ->
MaxDepth = 10,
Rnd = case {Flags, Depth} of
{_, MaxDepth} -> % Only leafs
random:uniform(size(Leafs)) + 3;
rand:uniform(size(Leafs)) + 3;
{0, 0} -> % Only containers
random:uniform(3);
rand:uniform(3);
{0,_} -> % Anything
random:uniform(size(Leafs)+3)
rand:uniform(size(Leafs)+3)
end,
case Rnd of
1 -> % Make map
Size = random:uniform(size(Leafs)),
Size = rand:uniform(size(Leafs)),
lists:foldl(fun(_, {Acc1,Acc2}) ->
{K1,K2} = term_gen_recursive(Leafs, Flags,
Depth+1),
Expand All @@ -1713,7 +1713,7 @@ term_gen_recursive(Leafs, Flags, Depth) ->
{Cdr1,Cdr2} = term_gen_recursive(Leafs, Flags, Depth+1),
{[Car1 | Cdr1], [Car2 | Cdr2]};
3 -> % Make tuple
Size = random:uniform(size(Leafs)),
Size = rand:uniform(size(Leafs)),
L = lists:map(fun(_) -> term_gen_recursive(Leafs, Flags, Depth+1) end,
lists:seq(1,Size)),
{L1, L2} = lists:unzip(L),
Expand All @@ -1722,7 +1722,7 @@ term_gen_recursive(Leafs, Flags, Depth) ->
N -> % Make leaf
case element(N-3, Leafs) of
I when is_integer(I) ->
case random:uniform(4) of
case rand:uniform(4) of
1 -> {I, float(I)};
2 -> {float(I), I};
_ -> {I,I}
Expand Down
2 changes: 1 addition & 1 deletion lib/dialyzer/test/indent_SUITE_data/src/simple/is_rec.erl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@ ri14() ->
-spec '1-3'() -> '1-3-t'().

'1-3'() ->
random:uniform(3).
rand:uniform(3).


-spec 'Atom'() -> atom().
Expand Down
20 changes: 10 additions & 10 deletions lib/dialyzer/test/map_SUITE_data/src/map_galore.erl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1527,7 +1527,7 @@ float_int_compare() ->

numeric_keys(N) ->
lists:foldl(fun(_,Acc) ->
Int = random:uniform(N*4) - N*2,
Int = rand:uniform(N*4) - N*2,
Float = float(Int),
[Int, Float, Float * 0.99, Float * 1.01 | Acc]
end,
Expand Down Expand Up @@ -1558,7 +1558,7 @@ do_compare([Gen1, Gen2]) ->

%% Change one key from int to float (or vice versa) and check compare
ML1 = maps:to_list(M1),
{K1,V1} = lists:nth(random:uniform(length(ML1)), ML1),
{K1,V1} = lists:nth(rand:uniform(length(ML1)), ML1),
case K1 of
I when is_integer(I) ->
case maps:find(float(I),M1) of
Expand Down Expand Up @@ -1649,9 +1649,9 @@ cmp_others(T1, T2, _) ->

map_gen(Pairs, Size) ->
{_,L} = lists:foldl(fun(_, {Keys, Acc}) ->
KI = random:uniform(size(Keys)),
KI = rand:uniform(size(Keys)),
K = element(KI,Keys),
KV = element(random:uniform(size(K)), K),
KV = element(rand:uniform(size(K)), K),
{erlang:delete_element(KI,Keys), [KV | Acc]}
end,
{Pairs, []},
Expand Down Expand Up @@ -1691,15 +1691,15 @@ term_gen_recursive(Leafs, Flags, Depth) ->
MaxDepth = 10,
Rnd = case {Flags, Depth} of
{_, MaxDepth} -> % Only leafs
random:uniform(size(Leafs)) + 3;
rand:uniform(size(Leafs)) + 3;
{0, 0} -> % Only containers
random:uniform(3);
rand:uniform(3);
{0,_} -> % Anything
random:uniform(size(Leafs)+3)
rand:uniform(size(Leafs)+3)
end,
case Rnd of
1 -> % Make map
Size = random:uniform(size(Leafs)),
Size = rand:uniform(size(Leafs)),
lists:foldl(fun(_, {Acc1,Acc2}) ->
{K1,K2} = term_gen_recursive(Leafs, Flags,
Depth+1),
Expand All @@ -1713,7 +1713,7 @@ term_gen_recursive(Leafs, Flags, Depth) ->
{Cdr1,Cdr2} = term_gen_recursive(Leafs, Flags, Depth+1),
{[Car1 | Cdr1], [Car2 | Cdr2]};
3 -> % Make tuple
Size = random:uniform(size(Leafs)),
Size = rand:uniform(size(Leafs)),
L = lists:map(fun(_) -> term_gen_recursive(Leafs, Flags, Depth+1) end,
lists:seq(1,Size)),
{L1, L2} = lists:unzip(L),
Expand All @@ -1722,7 +1722,7 @@ term_gen_recursive(Leafs, Flags, Depth) ->
N -> % Make leaf
case element(N-3, Leafs) of
I when is_integer(I) ->
case random:uniform(4) of
case rand:uniform(4) of
1 -> {I, float(I)};
2 -> {float(I), I};
_ -> {I,I}
Expand Down
2 changes: 1 addition & 1 deletion lib/dialyzer/test/opaque_SUITE_data/src/simple/is_rec.erl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@ ri14() ->
-spec '1-3'() -> '1-3-t'().

'1-3'() ->
random:uniform(3).
rand:uniform(3).


-spec 'Atom'() -> atom().
Expand Down
2 changes: 1 addition & 1 deletion lib/dialyzer/test/options2_SUITE_data/src/kernel/global.erl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1868,7 +1868,7 @@ random_sleep(Times) ->
Tmax = if Times > 5 -> 8000;
true -> ((1 bsl Times) * 1000) div 8
end,
T = random:uniform(Tmax),
T = rand:uniform(Tmax),
?P({random_sleep, node(), self(), Times, T}),
receive after T -> ok end.

Expand Down
2 changes: 1 addition & 1 deletion lib/dialyzer/test/r9c_SUITE_data/src/asn1/asn1ct_value.erl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -259,7 +259,7 @@ c_string(C,Default) ->
random(Upper) ->
{A1,A2,A3} = erlang:now(),
random:seed(A1,A2,A3),
random:uniform(Upper).
rand:uniform(Upper).

size_random(C) ->
case get_constraint(C,'SizeConstraint') of
Expand Down
4 changes: 2 additions & 2 deletions lib/dialyzer/test/r9c_SUITE_data/src/mnesia/mnesia_lib.erl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -840,11 +840,11 @@ random_time(Retries, _Counter0) ->
undefined ->
{X, Y, Z} = erlang:now(), %% time()
random:seed(X, Y, Z),
Time = Dup + random:uniform(MaxIntv),
Time = Dup + rand:uniform(MaxIntv),
%% dbg_out("---random_test rs ~w max ~w val ~w---~n", [Retries, MaxIntv, Time]),
Time;
_ ->
Time = Dup + random:uniform(MaxIntv),
Time = Dup + rand:uniform(MaxIntv),
%% dbg_out("---random_test rs ~w max ~w val ~w---~n", [Retries, MaxIntv, Time]),
Time
end.
Expand Down
2 changes: 1 addition & 1 deletion lib/dialyzer/test/small_SUITE_data/src/false_false.erl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -20,7 +20,7 @@ false_or() ->
false or false.

wips() ->
case new_execute_cmd(random:uniform(2)) of
case new_execute_cmd(rand:uniform(2)) of
ok -> mostly_good;
_ -> and_here_we_are
end.
Expand Down
Loading