From 62250a5ec20f16c0c1949b49b37d6d7f27bce1ff Mon Sep 17 00:00:00 2001
From: Eduardo Gurgel <edgurgel@gmail.com>
Date: Fri, 27 Dec 2013 19:29:30 -0300
Subject: [PATCH] Add tests to 'prettify_json' onresponse hook

---
 test/httparrot_test.exs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 test/httparrot_test.exs

diff --git a/test/httparrot_test.exs b/test/httparrot_test.exs
new file mode 100644
index 0000000..f393498
--- /dev/null
+++ b/test/httparrot_test.exs
@@ -0,0 +1,25 @@
+defmodule HTTParrotTest do
+  use ExUnit.Case
+  import :meck
+  import HTTParrot
+
+  setup do
+    new :cowboy_req
+  end
+
+  teardown do
+    unload :cowboy_req
+  end
+
+  test "'prettify_json' prettifies body response if it's a JSON" do
+    expect(:cowboy_req, :reply, [{[:status, [{"content-length", '14'}], "{\n  \"a\": \"b\"\n}", :req1], {:ok, :req2}}])
+    assert prettify_json(:status, [{"content-length", '12'}], "{\"a\":\"b\"}", :req1) == :req2
+    assert validate :cowboy_req
+  end
+
+  test "'prettify_json' does nothing if body is not a JSON" do
+    expect(:cowboy_req, :reply, [{[:status, :headers, "<xml></xml>", :req1], {:ok, :req2}}])
+    assert prettify_json(:status, :headers, "<xml></xml>", :req1) == :req2
+    assert validate :cowboy_req
+  end
+end