anchor.diff:  local_access_only(Node, Level) ->
       Key = rand_key(),
   
  -    ?assertMatch({ok, Key},
  -        ?call_store(Node, create, [Level,
  -            #document{
  -                key = Key,
  -                value = #some_record{field1 = 1, field2 = <<"abc">>, field3 = {test, tuple}}
  -            }])),
  -
  -    ?assertMatch({error, already_exists},
  -        ?call_store(Node, create, [Level,
  -            #document{
  -                key = Key,
  -                value = #some_record{field1 = 1, field2 = <<"abc">>, field3 = {test, tuple}}
  -            }])),
  -
  -    ?assertMatch({ok, true},
  -        ?call_store(Node, exists, [Level,
  -            some_record, Key])),
  +    ?assertMatch({ok, Key}, ?call_store(Node, create, [
  +        Level, #document{key = Key, value = #some_record{
  +            field1 = 1, field2 = <<"abc">>, field3 = {test, tuple}
  +        }}
  +    ])),
  +
  +    ?assertMatch({error, already_exists}, ?call_store(Node, create, [
  +        Level, #document{key = Key, value = #some_record{
  +            field1 = 1, field2 = <<"abc">>, field3 = {test, tuple}
  +        }}
  +    ])),
  +
  +    ?assertMatch({ok, true}, ?call_store(Node, exists, [Level, some_record, Key])),
   
       ?assertMatch({ok, #document{value = #some_record{field3 = {test, tuple}}}},
  -        ?call_store(Node, get, [Level,
  -            some_record, Key])),
  +        ?call_store(Node, get, [Level, some_record, Key])),
   
       Pid = self(),
  -    ?assertMatch({ok, Key},
  -        ?call_store(Node, update, [Level,
  -            some_record, Key, #{field2 => Pid}])),
  +    ?assertMatch({ok, Key}, ?call_store(Node, update, [
  +        Level, some_record, Key, #{field2 => Pid}
  +    ])),
   
       ?assertMatch({ok, #document{value = #some_record{field2 = Pid}}},
  -        ?call_store(Node, get, [Level,
  -            some_record, Key])),
  -
  -    ?assertMatch(ok,
  -        ?call_store(Node, delete, [Level,
  -            some_record, Key, fun() -> false end])),
  +        ?call_store(Node, get, [Level, some_record, Key])),
  +
  +    ?assertMatch(ok, ?call_store(Node, delete, [
  +        Level, some_record, Key, fun() -> false end
  +    ])),
   
       ?assertMatch({ok, #document{value = #some_record{field2 = Pid}}},
  -        ?call_store(Node, get, [Level,
  -            some_record, Key])),
  -
  -    ?assertMatch(ok,
  -        ?call_store(Node, delete, [Level,
  -            some_record, Key])),
  -
  -    ?assertMatch({error, {not_found, _}},
  -        ?call_store(Node, get, [Level,
  -            some_record, Key])),
  -
  -    ?assertMatch({error, {not_found, _}},
  -        ?call_store(Node, update, [Level,
  -            some_record, Key, #{field2 => self()}])),
  +        ?call_store(Node, get, [Level, some_record, Key])),
  +
  +    ?assertMatch(ok, ?call_store(Node, delete, [
  +        Level, some_record, Key
  +    ])),
  +
  +    ?assertMatch({error, {not_found, _}}, ?call_store(Node, get, [
  +        Level, some_record, Key
  +    ])),
  +
  +    ?assertMatch({error, {not_found, _}}, ?call_store(Node, update, [
  +        Level, some_record, Key, #{field2 => self()}
  +    ])),
   
       ok.
   
  
positive.code:     [Worker1, Worker2] = Workers = ?config(op_worker_nodes, Config),
      disable_cache_control(Workers), % Automatic cleaning may influence results
  
      Times = [timer:hours(7*24), timer:hours(24), timer:hours(1), timer:minutes(10), 0],
      {_, KeysWithTimes} = lists:foldl(fun(T, {Num, Ans}) ->
          K = list_to_binary("old_keys_cleaning_test"++integer_to_list(Num)),
          {Num + 1, [{K, T} | Ans]}
      end, {1, []}, Times),
  
  
negative.code:             ok;
          _ ->
              F(Counter),
              while(Counter + 1, F, Guard)
      end.
  
  from_timestamp({Mega, Sec, Micro}) ->
      (Mega * 1000000 + Sec) * 1000 + Micro / 1000.
  
  to_timestamp(T) ->
      {trunc(T / 1000000000), trunc(T / 1000) rem 1000000, trunc(T * 1000) rem 1000000}.
  
  disable_cache_control(Workers) ->
      disable_cache_control_and_set_dump_delay(Workers, 1000).
  