anchor.diff:  
       %% Verify the upload id is in list_uploads results and
       %% that the bucket information is correct
  -    UploadsTerm1 = erlcloud_s3_multipart:uploads_to_term(
  -                     erlcloud_s3_multipart:list_uploads(Bucket, [], Config)),
  -    Uploads1 = proplists:get_value(uploads, UploadsTerm1, []),
  -    ?assertEqual(Bucket, proplists:get_value(bucket, UploadsTerm1)),
  -    ?assert(proplists:is_defined(UploadId, Uploads1)),
  +    UploadsList1 = erlcloud_s3_multipart:list_uploads(Bucket, [], Config),
  +    Uploads1 = proplists:get_value(uploads, UploadsList1, []),
  +    ?assertEqual(Bucket, proplists:get_value(bucket, UploadsList1)),
  +    ?assert(upload_id_present(UploadId, Uploads1)),
   
       lager:info("Uploading parts"),
       EtagList = upload_and_assert_parts(Bucket,
  
positive.code: 
      %% Verify the upload id is in list_uploads results and
      %% that the bucket information is correct
      UploadsTerm1 = erlcloud_s3_multipart:uploads_to_term(
                       erlcloud_s3_multipart:list_uploads(Bucket, [], Config)),
      Uploads1 = proplists:get_value(uploads, UploadsTerm1, []),
      ?assertEqual(Bucket, proplists:get_value(bucket, UploadsTerm1)),
      ?assert(proplists:is_defined(UploadId, Uploads1)),
  
      lager:info("Uploading parts"),
      _EtagList = upload_and_assert_parts(Bucket,
  
negative.code:                                                            Config)),
  
      %% List uploads and verify upload id is no longer present
      UploadsList2 = erlcloud_s3_multipart:list_uploads(Bucket, [], Config),
      Uploads2 = proplists:get_value(uploads, UploadsList2, []),
      ?assertNot(upload_id_present(UploadId, Uploads2)),
  
      %% List bucket contents and verify key is now listed
      ObjList2 = erlcloud_s3:list_objects(Bucket, Config),
  