Blob Blame History Raw
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);