anchor.diff:                {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))),
  +
       TestSpecs = [store_object(?BUCKET1, UserConfig),
                    delete_object(?BUCKET2, UserConfig),
                    store_objects(?BUCKET3, UserConfig),
  
positive.code:     ExpectedObjects = 10,
      ExpectedBytes = 1000,
      {Bucket, ExpectedObjects, ExpectedBytes}.
  
  calc_storage_stats() ->
      Begin = rtcs:datetime(),
  
negative.code:     End = rtcs:datetime(),
      {Begin, End}.
  
  assert_storage_json_stats({Bucket, undefined, undefined}, Sample) ->
      ?assertEqual(notfound, rtcs:json_get([list_to_binary(Bucket)], Sample));
  assert_storage_json_stats({Bucket, ExpectedObjects, ExpectedBytes}, Sample) ->
      ?assertEqual(ExpectedObjects, rtcs:json_get([list_to_binary(Bucket), <<"Objects">>],   Sample)),
      ?assertEqual(ExpectedBytes,   rtcs:json_get([list_to_binary(Bucket), <<"Bytes">>],     Sample)),
  