anchor.diff:          assert_on_disc(Worker, Model, Key),
           timer:sleep(8000),
           assert_not_on_disc(Worker, Model, Key)
  -    end, [global_clock:timestamp_seconds()+5, 5]).
  +    end, [global_clock:timestamp_seconds() + 5, 5]).
   
   deleted_doc_should_expire(Config) ->
       [Worker | _] = ?config(cluster_worker_nodes, Config),
  
positive.code:     ?assertEqual({ok, []}, rpc:call(Worker, Model, fold_links,
          [?KEY, all, fun(Link, Acc) -> {ok, [Link | Acc]} end, [], #{}]
      )),
  
  
  
      % Check links adding after deletion
  
negative.code: del_one_by_one(Model, Key, Tree, ExpectedLinkNames) ->
      lists:map(fun(Name) ->
          apply(Model, delete_links, [Key, Tree, Name])
      end, ExpectedLinkNames).
  
  
  perform_parallel_appends(Worker, LogId, AppendSize, ProcRepeats, ProcNum) ->
      Self = self(),
      Pids = [spawn_link(Worker, fun() ->
          Stopwatch = stopwatch:start(),
          perform_appends(Worker, LogId, AppendSize, ProcRepeats),
          Self ! {self(), {ok, stopwatch:read_micros(Stopwatch)}}
      end) || _ <- lists:seq(1, ProcNum)],
      Responses = [receive {Pid, Resp} -> Resp  end || Pid <- Pids],
  
      lists:foldl(fun({ok, Time}, TimeAcc) ->
          Time + TimeAcc
      end, 0, Responses).
  
  
  perform_appends(Worker, LogId, AppendSize, Repeats) ->
      AppendLog = str_utils:rand_hex(AppendSize),
      lists:foreach(fun(_) ->
          ?assertMatch(ok, rpc:call(Worker, infinite_log, append, [LogId, AppendLog]), ?ATTEMPTS)
      end, lists:seq(1, Repeats)).
  
  
  perform_lists(Worker, LogId, ListOpts, AccessMode, Repeats) ->
      lists:foreach(fun(_) ->
          ?assertMatch({ok, _}, rpc:call(Worker, infinite_log, list, [LogId, ListOpts, AccessMode]), ?ATTEMPTS)
      end, lists:seq(1, Repeats)).
  
  
  perform_parallel_lists(Worker, LogId, ListOpts, AccessMode, ProcRepeats, ProcNum) ->
      Self = self(),
      Pids = [spawn_link(Worker, fun() ->
          Stopwatch = stopwatch:start(),
          perform_lists(Worker, LogId, ListOpts, AccessMode, ProcRepeats),
          Self ! {self(), {ok, stopwatch:read_micros(Stopwatch)}}
      end) || _ <- lists:seq(1, ProcNum)],
      Responses = [receive {Pid, Resp} -> Resp end || Pid <- Pids],
  
      lists:foldl(fun({ok, Time}, TimeAcc) ->
          Time + TimeAcc
      end, 0, Responses).
  