Added Multipart.add_file_with_name

lib/maxwell/multipart.ex

@@ -42,6 +42,14 @@ defmodule Maxwell.Multipart do
     append_part(multipart, {:file, path, disposition, extra_headers})
   end
 
+  @spec add_file_with_name(t, Path.t, String.t) :: t
+  @spec add_file_with_name(t, Path.t, String.t, headers_t) :: t
+  def add_file_with_name(multipart, path, name, extra_headers \\ []) do
+    filename = Path.basename(path)
+    disposition = {"form-data", [{"name", name}, {"filename", filename}]}
+    append_part(multipart, {:file, path, disposition, extra_headers})
+  end
+
   @spec add_field(t, String.t, binary) :: t
   def add_field(multipart, name, value) when is_binary(name) and is_binary(value) do
     append_part(multipart, {name, value})

test/maxwell/multipart_test.exs

@@ -248,6 +248,17 @@ defmodule Maxwell.MultipartTest do
         == {:multipart, [{:file, "test.png", disposition, headers}]}
   end
 
+  test "add_file_with_name/3 should add a file with name" do
+    assert Multipart.new |> Multipart.add_file_with_name("test.png", "media")
+        == {:multipart, [{:file, "test.png", {"form-data", [{"name", "media"}, {"filename", "test.png"}]}, []}]}
+  end
+
+  test "add_file_with_name/4 should add a file with name and headers" do
+    headers = [{"content-type", "image/png"}]
+    assert Multipart.new |> Multipart.add_file_with_name("test.png", "media", headers)
+        == {:multipart, [{:file, "test.png", {"form-data", [{"name", "media"}, {"filename", "test.png"}]}, headers}]}
+  end
+
   test "add_field/3 should add a data part" do
     assert Multipart.new |> Multipart.add_field("key", "value")
         == {:multipart, [{"key", "value"}]}