anchor.diff:      %% Test cases
       basic_upload_test_case(?TEST_BUCKET, ?TEST_KEY1, UserConfig),
       aborted_upload_test_case(?TEST_BUCKET, ?TEST_KEY2, UserConfig),
  +
  +    %% Start 10 uploads for 10 different keys
  +    Count1 = 10,
  +    initiate_uploads(?TEST_BUCKET, Count1, UserConfig),
  +
  +    %% Successively list the in-progress uploads, verify the output,
  +    %% and abort an upload until all uploads are aborted
  +    abort_and_verify_uploads(?TEST_BUCKET, Count1, UserConfig),
  +
  +    %% Start 100 uploads for 100 different keys
  +    Count2 = 100,
  +    initiate_uploads(?TEST_BUCKET, Count2, UserConfig),
  +
  +    %% List uploads and verify all 100 are returned
  +    UploadList1 = erlcloud_s3_multipart:list_uploads(?TEST_BUCKET, [], UserConfig),
  +    lager:info("UploadList1: ~p", [UploadList1]),
  +    verify_upload_list(UploadList1, Count2),
  +
  +    %% @TODO Use max-uploads option to request first 50 results
  +    %% Options1 = [{max_uploads, 50}],
  +    %% UploadList2 = erlcloud_s3_multipart:list_uploads(?TEST_BUCKET, Options1, UserConfig),
  +    %% verify_upload_list(ObjList1, 50, 100),
  +
  +    %% Initiate uploads for 2 sets of 4 objects with keys that have
  +    %% a common subdirectory
  +    Prefix1 = "0/prefix1/",
  +    Prefix2 = "0/prefix2/",
  +    initiate_uploads(?TEST_BUCKET, 4, Prefix1, UserConfig),
  +    initiate_uploads(?TEST_BUCKET, 4, Prefix2, UserConfig),
  +
  +    %% @TODO Uncomment this block once support for `max-uploads' is done.
  +    %% Use `max-uploads', `prefix' and `delimiter' to get first 50
  +    %% results back and verify results are truncated and 2 common
  +    %% prefixes are returned.
  +    %% Options2 = [{max_uploads, 50}, {prefix, "0/"}, {delimiter, "/"}],
  +    %% UploadList3 = erlcloud_s3_multipart:list_uploads(?TEST_BUCKET, Options2, UserConfig),
  +    %% CommonPrefixes = proplists:get_value(common_prefixes, UploadList3),
  +    %% ?assert(lists:member([{prefix, Prefix1}], CommonPrefixes)),
  +    %% ?assert(lists:member([{prefix, Prefix2}], CommonPrefixes)),
  +    %% verify_upload_list(UploadList3, 48, 100),
  +
  +    %% @TODO Replace this with the commented-out code blocks above and
  +    %% below this one once the support for `max-uploads' is in place.
  +    %% Use `prefix' and `delimiter' to get the active uploads back and
  +    %% verify that 2 common prefixes are returned.
  +    Options2 = [{prefix, "0/"}, {delimiter, "/"}],
  +    UploadList3 = erlcloud_s3_multipart:list_uploads(?TEST_BUCKET, Options2, UserConfig),
  +    CommonPrefixes = proplists:get_value(common_prefixes, UploadList3),
  +    ?assert(lists:member([{prefix, Prefix1}], CommonPrefixes)),
  +    ?assert(lists:member([{prefix, Prefix2}], CommonPrefixes)),
  +    verify_upload_list(UploadList3, 48, 100),
  +
  +    %% @TODO Uncomment this block once support for `max-uploads' is done.
  +    %% Use `key-marker' and `upload-id-marker' to request
  +    %% remainder of in-progress upload results
  +    %% Options3 = [{key_marker, "48"}, {upload_id_marker, "X"}],
  +    %% UploadList4 = erlcloud_s3_multipart:list_uploads(?TEST_BUCKET, Options3, UserConfig),
  +    %% verify_upload_list(UploadList4, 52, 100, 49),
  +
  +    %% Abort all uploads for the bucket
  +    abort_uploads(?TEST_BUCKET, UserConfig),
   
       lager:info("deleting bucket ~p", [?TEST_BUCKET]),
       ?assertEqual(ok, erlcloud_s3:delete_bucket(?TEST_BUCKET, UserConfig)),
  
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 still not listed
      ObjList2 = erlcloud_s3:list_objects(Bucket, Config),
  