Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
redo
0001-replace-erlang-now-0-to-os-timestamp-0.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0001-replace-erlang-now-0-to-os-timestamp-0.patch of Package redo
From 5f3c1f6a950eaf136653ca643fc4836792f90dc5 Mon Sep 17 00:00:00 2001 From: Led <ledest@gmail.com> Date: Sun, 25 Jun 2017 00:34:30 +0300 Subject: [PATCH 1/3] replace erlang:now/0 to os:timestamp/0 --- src/bench.erl | 8 ++++---- src/redo_concurrency_test.erl | 2 +- test/redo_block_tests.erl | 8 ++++---- 3 files changed, 9 insertions(+), 9 deletions(-) diff --git a/src/bench.erl b/src/bench.erl index e274c9d..6196130 100644 --- a/src/bench.erl +++ b/src/bench.erl @@ -3,19 +3,19 @@ sync(Num) -> Redo = setup(), - A = now(), + A = os:timestamp(), ok = loop(Redo, Num), - B = now(), + B = os:timestamp(), print(Num,A,B), ok. async(Num, Concurrency) -> Redo = setup(), Self = self(), - A = now(), + A = os:timestamp(), Pids = [spawn_link(fun() -> loop(Redo, Num div Concurrency), Self ! {self(), done} end) || _ <- lists:seq(1, Concurrency)], [receive {Pid, done} -> ok end || Pid <- Pids], - B = now(), + B = os:timestamp(), print(Num,A,B), ok. diff --git a/src/redo_concurrency_test.erl b/src/redo_concurrency_test.erl index b0a6b0c..eaa819a 100644 --- a/src/redo_concurrency_test.erl +++ b/src/redo_concurrency_test.erl @@ -49,7 +49,7 @@ worker(Parent, N, 0) -> Parent ! {self(), N, done}; worker(Parent, N, NumOps) -> - random:seed(now()), + random:seed(os:timestamp()), StrN = integer_to_list(N), StrOp = integer_to_list(NumOps), case random:uniform(100) of diff --git a/test/redo_block_tests.erl b/test/redo_block_tests.erl index 5b80348..302c845 100644 --- a/test/redo_block_tests.erl +++ b/test/redo_block_tests.erl @@ -50,7 +50,7 @@ seq_test_() -> fun start/0, fun stop/1, fun(Pid) -> - Key = lists:flatten(io_lib:format("~p-~p", [make_ref(),now()])), + Key = lists:flatten(io_lib:format("~p-~p", [make_ref(), os:timestamp()])), Cmds = [redo_block:cmd(Pid, ["EXISTS", Key]), redo_block:cmd(Pid, ["SET", Key, "1"]), redo_block:cmd(Pid, ["GET", Key]), @@ -71,7 +71,7 @@ parallel_test_() -> fun(Pid) -> Parent = self(), Keygen = fun() -> - iolist_to_binary(io_lib:format("~p-~p", [make_ref(),now()])) + iolist_to_binary(io_lib:format("~p-~p", [make_ref(), os:timestamp()])) end, %% Takes a unique key, inserts it, then reads it. With hundreds of concurrent %% processes, if redo_block doesn't behave well, the val read might be different @@ -97,7 +97,7 @@ timeout_test_() -> fun start/0, fun stop/1, fun(Pid) -> - Key = lists:flatten(io_lib:format("~p-~p", [make_ref(),now()])), + Key = lists:flatten(io_lib:format("~p-~p", [make_ref(), os:timestamp()])), Cmds = [redo_block:cmd(Pid, ["EXISTS", Key]), redo_block:cmd(Pid, ["SET", Key, "1"]), redo_block:cmd(Pid, ["GET", Key], 0), @@ -119,7 +119,7 @@ parallel_timeout_test_() -> fun(Pid) -> Parent = self(), Keygen = fun() -> - iolist_to_binary(io_lib:format("~p-~p", [make_ref(),now()])) + iolist_to_binary(io_lib:format("~p-~p", [make_ref(), os:timestamp()])) end, %% Takes a unique key, inserts it, then reads it. With hundreds of concurrent %% processes, if redo_block doesn't behave well, the val read might be different -- 2.13.1
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor