More aggressive clerk

This commit is contained in:
Martin Sumner 2016-11-05 17:50:28 +00:00
parent a7ed3e4b85
commit 2d590c3077

View file

@ -37,7 +37,7 @@
%% prompt erasing of the removed files). %% prompt erasing of the removed files).
%% %%
%% The clerk will not request work on timeout if the committing of a manifest %% The clerk will not request work on timeout if the committing of a manifest
%5 change is pending confirmation. %% change is pending confirmation.
%% %%
%% -------- TIMEOUTS --------- %% -------- TIMEOUTS ---------
%% %%
@ -67,7 +67,7 @@
-include_lib("eunit/include/eunit.hrl"). -include_lib("eunit/include/eunit.hrl").
-define(MAX_TIMEOUT, 2000). -define(MAX_TIMEOUT, 2000).
-define(MIN_TIMEOUT, 200). -define(MIN_TIMEOUT, 50).
-record(state, {owner :: pid(), -record(state, {owner :: pid(),
change_pending=false :: boolean(), change_pending=false :: boolean(),
@ -459,4 +459,4 @@ select_merge_file_test() ->
?assertMatch(FileRef, {{o, "B1", "K1"}, {o, "B3", "K3"}, dummy_pid}), ?assertMatch(FileRef, {{o, "B1", "K1"}, {o, "B3", "K3"}, dummy_pid}),
?assertMatch(NewManifest, [{0, []}, {1, L1}]). ?assertMatch(NewManifest, [{0, []}, {1, L1}]).
-endif. -endif.