Add json gzipped response function.

lib/maru/response.ex

@@ -48,6 +48,23 @@ defmodule Maru.Response do
     |> Plug.Conn.halt()
   end
 
+  @doc """
+  Make gzipped json format response.
+  """
+  def json_gzipped(%Plug.Conn{} = conn, data) do
+    json_library = Maru.json_library()
+
+    gzipped = data
+    |> json_library.encode_to_iodata!
+    |> :zlib.gzip
+
+    conn
+    |> Plug.Conn.put_resp_content_type("application/json")
+    |> Plug.Conn.put_resp_header("content-encoding", "gzip")
+    |> Plug.Conn.send_resp(conn.status || 200, gzipped)
+    |> Plug.Conn.halt()
+  end
+
   @doc """
   Make html format response.
   """

lib/maru/test.ex

@@ -95,6 +95,13 @@ defmodule Maru.Test do
   Get response from conn as json.
   """
   def json_response(conn) do
-    Jason.decode!(conn.resp_body)
+    case Plug.Conn.get_resp_header(conn, "content-encoding") do
+      ["gzip"] ->
+        conn.resp_body
+        |> :zlib.gunzip
+        |> Jason.decode!
+      [] ->
+        Jason.decode!(conn.resp_body)
+    end
   end
 end

test/test_test.exs

@@ -117,21 +117,38 @@ defmodule Maru.TestTest do
       post do
         json(conn, params)
       end
+
+      params do
+        requires :foo
+      end
+
+      put do
+        json_gzipped(conn, params)
+      end
     end
 
     defmodule TestTest3 do
       use Maru.Test, server: Maru.TestTest.TestServer3
 
-      def test do
+      def test_post do
         build_conn()
         |> Plug.Conn.put_req_header("content-type", "application/json")
         |> put_body_or_params(~s({"foo":"bar"}))
         |> post("/")
         |> json_response
       end
+
+      def test_put do
+        build_conn()
+        |> Plug.Conn.put_req_header("content-type", "application/json")
+        |> put_body_or_params(~s({"foo":"bar"}))
+        |> put("/")
+        |> json_response
+      end
     end
 
-    assert %{"foo" => "bar"} = TestTest3.test()
+    assert %{"foo" => "bar"} = TestTest3.test_post()
+    assert %{"foo" => "bar"} = TestTest3.test_put()
   end
 
   test "mounted" do