Return delete rseults in same order

Author: lpil

src/bucket/delete_objects.gleam

@@ -8,6 +8,7 @@ import gleam/http/request.{type Request, Request}
 import gleam/http/response.{type Response}
 import gleam/list
 import gleam/option.{type Option}
+import gleam/result
 import gleam/string_builder
 import xmb
 
@@ -89,4 +90,5 @@ fn response_success(
   |> xml.keep(deleted, fn(a, e) { [Ok(e), ..a] })
   |> xml.keep(internal.error_object(), fn(a, e) { [Error(e), ..a] })
   |> xml.parse(response.body)
+  |> result.map(list.reverse)
 }

test/bucket_test.gleam

@@ -249,9 +249,8 @@ pub fn delete_objects_test() {
     |> httpc.send_bits
 
   let assert Ok([
-    Ok(delete_objects.Deleted(key: "o/3", version_id: "")),
-    Ok(delete_objects.Deleted(key: "o/2", version_id: "")),
     Ok(delete_objects.Deleted(key: "o/1", version_id: "")),
+    Ok(delete_objects.Deleted(key: "o/2", version_id: "")),
+    Ok(delete_objects.Deleted(key: "o/3", version_id: "")),
   ]) = delete_objects.response(res)
 }
-// TODO: delete objects partial failure