anchor.diff:      %% Use `max-keys' to restrict object list to 20 results
       Options1 = [{max_keys, 20}],
       ObjList1 = erlcloud_s3:list_objects(?TEST_BUCKET, Options1, UserConfig),
  -    Marker1 = proplists:get_value(marker, ObjList1),
  -    verify_object_list(ObjList1, 20),
  +    verify_object_list(ObjList1, 20, 30),
   
       %% Use `marker' to request remainder of results
  -    Options2 = [{marker, Marker1}],
  -    verify_object_list(erlcloud_s3:list_objects(?TEST_BUCKET, Options2, UserConfig), 10),
  +    Options2 = [{marker, "27"}],
  +    verify_object_list(erlcloud_s3:list_objects(?TEST_BUCKET, Options2, UserConfig), 10, 30, 21),
   
       %% Put 2 sets of 4 objects with keys that have a common subdirectory
  -    load_objects(?TEST_BUCKET, 4, "subdir/prefix1/", UserConfig),
  -    load_objects(?TEST_BUCKET, 4, "subdir/prefix2/", UserConfig),
  +    Prefix1 = "0/prefix1/",
  +    Prefix2 = "0/prefix2/",
  +    load_objects(?TEST_BUCKET, 4, Prefix1, UserConfig),
  +    load_objects(?TEST_BUCKET, 4, Prefix2, UserConfig),
   
       %% Use `max-keys', `prefix' and `delimiter' to get first 30
       %% results back and verify results are truncated and 2 common
  
positive.code:     verify_object_list(erlcloud_s3:list_objects(Bucket, Config), Count),
      erlcloud_s3:delete_object(Bucket, integer_to_list(Count), Config),
      delete_and_verify_objects(Bucket, Count-1, Config).
  
negative.code:                             Config) || X <- lists:seq(1,Count)].
  
  verify_object_list(ObjList, ExpectedCount) ->
      verify_object_list(ObjList, ExpectedCount, ExpectedCount, 1).
  
  verify_object_list(ObjList, ExpectedCount, TotalCount) ->
      verify_object_list(ObjList, ExpectedCount, TotalCount, 1).
  
  verify_object_list(ObjList, ExpectedCount, TotalCount, 1) when ExpectedCount =:= TotalCount ->
      ?assertEqual(lists:sort([integer_to_list(X) || X <- lists:seq(1, ExpectedCount)]),
                   [proplists:get_value(key, O) ||
                       O <- proplists:get_value(contents, ObjList)]);
  verify_object_list(ObjList, ExpectedCount, TotalCount, Offset) ->
      ?assertEqual(lists:sublist(
                     lists:sort([integer_to_list(X) || X <- lists:seq(1, TotalCount)]),
                     Offset,
                     ExpectedCount),
                   [proplists:get_value(key, O) ||
                       O <- proplists:get_value(contents, ObjList)]).
  
  