anchor.diff:  -define(TEST_KEY1, "riak_test_key1").
   -define(TEST_KEY2, "riak_test_key2").
   -define(PART_COUNT, 5).
  --define(PART_SIZE, 20).
  +-define(GOOD_PART_SIZE, 5*1024*1024).
  +-define(BAD_PART_SIZE, 2*1024*1024).
   
   confirm() ->
       {RiakNodes, _CSNodes, _Stanchion} = rtcs:setup(4),
  
positive.code:     ?assertError({aws_error, {http_error, 404, _, _}}, erlcloud_s3:list_objects(?TEST_BUCKET, UserConfig)),
      pass.
  
  upload_and_assert_parts(Bucket, Key, UploadId, PartCount, Config) ->
      [upload_and_assert_part(Bucket,
                              Key,
                              UploadId,
                              X,
                              generate_part_data(),
                              Config)
       || X <- lists:seq(1, PartCount)].
  
  upload_and_assert_part(Bucket, Key, UploadId, PartNum, PartData, Config) ->
  
negative.code: 
      lager:info("Uploading parts"),
      _EtagList = upload_and_assert_parts(Bucket,
                                          Key,
                                          UploadId,
                                          ?PART_COUNT,
                                          ?GOOD_PART_SIZE,
                                          Config),
  
      %% List bucket contents and verify empty
      ObjList1= erlcloud_s3:list_objects(Bucket, Config),
  