Add '/delete'

lib/httparrot.ex

@@ -10,6 +10,7 @@ defmodule HTTParrot do
              {'/post', HTTParrot.PHandler, []},
              {'/put', HTTParrot.PHandler, []},
              {'/patch', HTTParrot.PHandler, []},
+             {'/delete', HTTParrot.DeleteHandler, []},
              {'/status/:code', HTTParrot.StatusCodeHandler, []},
              {'/redirect-to', HTTParrot.RedirectToHandler, []},
              {'/cookies', HTTParrot.CookiesHandler, []},

lib/httparrot/delete_handler.ex

@@ -0,0 +1,23 @@
+defmodule HTTParrot.DeleteHandler do
+  alias HTTParrot.GeneralRequestInfo
+
+  def init(_transport, _req, _opts) do
+    {:upgrade, :protocol, :cowboy_rest}
+  end
+
+  def allowed_methods(req, state) do
+    {["DELETE"], req, state}
+  end
+
+  def delete_resource(req, state) do
+    {info, req} = GeneralRequestInfo.retrieve(req)
+    req = :cowboy_req.set_resp_body(response(info), req)
+    {true, req, state}
+  end
+
+  defp response(info) do
+    info |> JSEX.encode!
+  end
+
+  def terminate(_, _, _), do: :ok
+end

test/delete_handler_test.exs

@@ -0,0 +1,29 @@
+defmodule HTTParrot.DeleteHandlerTest do
+  use ExUnit.Case
+  import :meck
+  import HTTParrot.DeleteHandler
+
+  setup do
+    new :cowboy_req
+    new HTTParrot.GeneralRequestInfo
+    new JSEX
+  end
+
+  teardown do
+    unload :cowboy_req
+    unload HTTParrot.GeneralRequestInfo
+    unload JSEX
+  end
+
+  test "returns prettified json with query values, headers, url and origin" do
+    expect(HTTParrot.GeneralRequestInfo, :retrieve, 1, {:info, :req2})
+    expect(JSEX, :encode!, [{[:info], :json}])
+    expect(:cowboy_req, :set_resp_body, [{[:json, :req2], :req3}])
+
+    assert delete_resource(:req1, :state) == {true, :req3, :state}
+
+    assert validate :cowboy_req
+    assert validate HTTParrot.GeneralRequestInfo
+    assert validate JSEX
+  end
+end