anchor.diff:      lager:info("riak-cs-storage batch result: ~s", [Res]),
       ExpectRegexp = "Batch storage calculation started.\n$",
       ?assertMatch({match, _}, re:run(Res, ExpectRegexp)),
  -    %% TODO ensure storage calculation finished.
  -    timer:sleep(1000),
  +    true = rt:expect_in_log(CSNode, "Finished storage calculation"),
       End = rtcs:datetime(),
       {Begin, End}.
   
  
positive.code:     Config = [{riak, rtcs:riak_config([{riak_kv, [{delete_mode, keep}]}])},
                {stanchion, rtcs:stanchion_config()},
                {cs, rtcs:cs_config([{fold_objects_for_list_keys, true}])}],
      {UserConfig, {RiakNodes, _CSNodes, _Stanchion}} = rtcs:setup(1, Config),
      {AccessKey2, SecretKey2} = rtcs:create_user(hd(RiakNodes), 1),
      UserConfig2 = rtcs:config(AccessKey2, SecretKey2, rtcs:cs_port(hd(RiakNodes))),
  
  
negative.code:                  erlcloud_s3:put_object(Bucket, ?KEY, Block2, AnotherUser)),
      {Bucket, undefined, undefined}.
  
  calc_storage_stats(CSNode) ->
      Begin = rtcs:datetime(),
      %% TODO workaround to #766
      timer:sleep(1000),
  