Add /gzip endpoint

It closes #6

README.md

@@ -38,7 +38,6 @@ HTTP server built on top of Cowboy using (mostly) `cowboy_rest` handlers to serv
 
 ## TODO
 
-* [ ] /gzip Returns gzip-encoded data.
 * [ ] /deflate Returns deflate-encoded data.
 * [ ] /response-headers?key=val Returns given response headers.
 * [ ] /digest-auth/:qop/:user/:passwd Challenges HTTP Digest Auth.

lib/httparrot.ex

@@ -12,6 +12,7 @@ defmodule HTTParrot do
              {'/put', HTTParrot.PHandler, []},
              {'/patch', HTTParrot.PHandler, []},
              {'/delete', HTTParrot.DeleteHandler, []},
+             {'/gzip', HTTParrot.GzipHandler, []},
              {'/status/:code', [code: :int], HTTParrot.StatusCodeHandler, []},
              {'/redirect/:n', HTTParrot.RedirectHandler, []},
              {'/redirect-to', HTTParrot.RedirectToHandler, []},

lib/httparrot/gzip_handler.ex

@@ -0,0 +1,22 @@
+defmodule HTTParrot.GzipHandler do
+  @moduledoc """
+  Encode body using gzip encoding
+  """
+  alias HTTParrot.GeneralRequestInfo
+  use HTTParrot.Cowboy, methods: ~w(GET HEAD OPTIONS)
+
+  def content_types_provided(req, state) do
+    {[{{"application", "json", []}, :get_json}], req, state}
+  end
+
+  def get_json(req, state) do
+    {info, req} = GeneralRequestInfo.retrieve(req)
+    req = :cowboy_req.set_resp_header("content-encoding", "gzip", req)
+    response = response(info) |> JSEX.prettify!  |> :zlib.gzip
+    {response, req, state}
+  end
+
+  defp response(info) do
+    info |> JSEX.encode!
+  end
+end

priv/index.html

@@ -70,6 +70,7 @@
 <li><code>/put</code> Returns PUT data.</li>
 <li><code>/patch</code> Returns PATCH data.</li>
 <li><code>/delete</code> Returns DELETE data</li>
+<li><a href="/gzip"><code>/gzip</code></a> Returns gzip-encoded data.</li>
 <li><a href="/status/418"><code>/status/:code</code></a> Returns given HTTP Status code.</li>
 <li><a href="/redirect/6"><code>/redirect/:n</code></a> 302 Redirects <em>n</em> times.</li>
 <li><a href="/redirect-to?url=http://example.com/"><code>/redirect-to?url=foo</code></a> 302 Redirects to the <em>foo</em> URL.</li>

test/gzip_handler_test.exs

@@ -0,0 +1,27 @@
+defmodule HTTParrot.GzipHandlerTest do
+  use ExUnit.Case
+  import :meck
+  import HTTParrot.GzipHandler
+
+  setup do
+    new HTTParrot.GeneralRequestInfo
+    new JSEX
+    on_exit fn -> unload end
+    :ok
+  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(JSEX, :prettify!, [{[:json], "json"}])
+    expect(:cowboy_req, :set_resp_header, 3, :req3)
+
+    body = :zlib.gzip("json")
+
+    assert get_json(:req1, :state) == {body, :req3, :state}
+
+    assert validate HTTParrot.GeneralRequestInfo
+    assert validate JSEX
+    assert validate :cowboy_req
+  end
+end