Set content length header

CHANGELOG.md

@@ -3,6 +3,7 @@
 ## v0.2.9 (TBA)
 
 - Fixed bug where `Req` was not used by default if included in project
+- `Assent.Strategy.Httpc.request/5` now sets content length header
 
 ## v0.2.8 (2023-11-19)
 

lib/assent/http_adapter/httpc.ex

@@ -65,6 +65,7 @@ defmodule Assent.HTTPAdapter.Httpc do
   defp do_httpc_request(url, body, headers) do
     {content_type, headers} = split_content_type_headers(headers)
     body = to_charlist(body)
+    headers = set_content_length_header(headers, body)
 
     {url, headers, content_type, body}
   end
@@ -76,6 +77,17 @@ defmodule Assent.HTTPAdapter.Httpc do
     end
   end
 
+  defp set_content_length_header(headers, body) do
+    case List.keyfind(headers, ~c"content-length", 0) do
+      nil ->
+        length = body |> IO.iodata_length() |> Integer.to_string()
+        [{'content-length', length} | headers]
+
+      _ ->
+        headers
+    end
+  end
+
   defp format_response({:ok, {{_, status, _}, headers, body}}) do
     headers =
       Enum.map(headers, fn {key, value} ->

test/assent/http_adapter/httpc_test.exs

@@ -116,6 +116,8 @@ defmodule Assent.HTTPAdapter.HttpcTest do
                    "application/x-www-form-urlencoded"
                  ]
 
+          assert Plug.Conn.get_req_header(conn, "content-length") == ["7"]
+
           Plug.Conn.send_resp(conn, 200, "")
         end
       )