Add /cache

lib/httparrot.ex

@@ -25,6 +25,7 @@ defmodule HTTParrot do
              {'/delay/:n', HTTParrot.DelayedHandler, []},
              {'/html', :cowboy_static, {:priv_file, :httparrot, "html.html"}},
              {'/deny', HTTParrot.DenyHandler, []},
+             {'/cache', HTTParrot.CacheHandler, []},
              {'/robots.txt', HTTParrot.RobotsHandler, []},
              {'/base64/:value', HTTParrot.Base64Handler, []},
              {'/image', HTTParrot.ImageHandler, []},

lib/httparrot/cache_handler.ex

@@ -0,0 +1,33 @@
+defmodule HTTParrot.CacheHandler do
+  @moduledoc """
+  Returns 200 unless an If-Modified-Since or If-None-Match header is provided, when it returns a 304.
+  """
+  alias HTTParrot.GeneralRequestInfo
+
+  def init(_transport, _req, _opts) do
+    {:upgrade, :protocol, :cowboy_rest}
+  end
+
+  def allowed_methods(req, state) do
+    {["GET", "HEAD", "OPTIONS"], req, state}
+  end
+
+  def last_modified(req, state) do
+    {{{2012, 9, 21}, {22, 36, 14}}, req, state}
+  end
+
+  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)
+    {response(info), req, state}
+  end
+
+  defp response(info) do
+    info |> JSEX.encode!
+  end
+
+  def terminate(_, _, _), do: :ok
+end

priv/index.html

@@ -85,6 +85,7 @@
 <li><a href="/html" data-bare-link="true"><code>/html</code></a> Renders an HTML Page.</li>
 <li><a href="/robots.txt" data-bare-link="true"><code>/robots.txt</code></a> Returns some robots.txt rules.</li>
 <li><a href="/deny" data-bare-link="true"><code>/deny</code></a> Denied by robots.txt file.</li>
+<li><a href="/cache" data-bare-link="true"><code>/cache</code></a> 200 unless If-Modified-Since was sent, then 304.</li>
 <li><a href="/base64/LytiYXNlNjQrLw" data-bare-link="true"><code>/base64/:value</code></a> Decodes <em>value</em> base64url-encoded string.</li>
 <li><a href="/image" data-bare-link="true"><code>/image</code></a> Return an image based on Accept header.</li>
 <li><code>/websocket</code> Echo message received through websocket.</li>

test/cache_handler_test.exs

@@ -0,0 +1,25 @@
+defmodule HTTParrot.CacheHandlerTest do
+  use ExUnit.Case
+  import :meck
+  import HTTParrot.CacheHandler
+
+  setup do
+    new HTTParrot.GeneralRequestInfo
+    new JSEX
+  end
+
+  teardown do
+    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}])
+
+    assert get_json(:req1, :state) == {:json, :req2, :state}
+
+    assert validate HTTParrot.GeneralRequestInfo
+    assert validate JSEX
+  end
+end