From: Peter Lemenkov <lemenkov@gmail.com>
Date: Mon, 30 Jan 2017 19:49:11 +0300
Subject: [PATCH] Fix deprecation warning while building with Erlang 19
The following functions are considered deprecated:
- crypto:rand_bytes/1
- random:seed/1
- random:uniform/1
Signed-off-by: Peter Lemenkov <lemenkov@gmail.com>
diff --git a/test/ibrowse_load_test.erl b/test/ibrowse_load_test.erl
index eef0aaf..2dd73da 100644
--- a/test/ibrowse_load_test.erl
+++ b/test/ibrowse_load_test.erl
@@ -95,7 +95,7 @@ spawn_workers(0, _Num_requests, _Parent, Acc) ->
lists:reverse(Acc);
spawn_workers(Num_workers, Num_requests, Parent, Acc) ->
Pid_ref = spawn_monitor(fun() ->
- random:seed(os:timestamp()),
+ rand:seed(os:timestamp()),
case catch worker_loop(Parent, Num_requests) of
{'EXIT', Rsn} ->
io:format("Worker crashed with reason: ~p~n", [Rsn]);
@@ -135,7 +135,7 @@ wait_for_workers([{Pid, Pid_ref} | T] = Pids) ->
worker_loop(Parent, 0) ->
Parent ! {done, self()};
worker_loop(Parent, N) ->
- Delay = random:uniform(100),
+ Delay = rand:uniform(100),
Url = case Delay rem 10 of
%% Change 10 to some number between 0-9 depending on how
%% much chaos you want to introduce into the server
diff --git a/test/ibrowse_test_server.erl b/test/ibrowse_test_server.erl
index f30e895..6c2b0f4 100644
--- a/test/ibrowse_test_server.erl
+++ b/test/ibrowse_test_server.erl
@@ -290,7 +290,7 @@ process_request(Sock, Sock_type, Req) ->
do_trace("Recvd req: ~p~n", [Req]),
Resp = <<"HTTP/1.1 200 OK\r\nContent-Length: 0\r\n\r\n">>,
do_send(Sock, Sock_type, Resp),
- timer:sleep(random:uniform(100)).
+ timer:sleep(rand:uniform(100)).
do_send(Sock, tcp, Resp) ->
gen_tcp:send(Sock, Resp);