1 files changed, 33 insertions, 0 deletions
diff --git a/test/catlfish_test.erl b/test/catlfish_test.erl
new file mode 100644
index 0000000..5782984
--- /dev/null
+++ b/test/catlfish_test.erl
@@ -0,0 +1,33 @@
+-module(catlfish_test).
+-include_lib("eunit/include/eunit.hrl").
+
+%% Requires that catlfish is running (or, at the moment, that v1 has
+%% been installed as an mod_esi module -- use https_server:start()).
+
+-define(URL, "https://flimsytest:8080/ct/v1/add_chain").
+
+add_chain_test_() ->
+    {setup,
+     fun() ->
+             Input = "{\"chain\": [\"some test data\"]}",
+             {OK, {{_, RC, _}, _, _}} = httpc:request(post, {?URL, [], [], Input}, [], []),
+             %% TODO: Verify signature.
+             {OK, RC}
+     end,
+     fun(_) -> ok end,
+     fun({OK, RC}) ->
+             [?_assertEqual(ok, OK),
+              ?_assertEqual(RC, 200)]
+     end}.
+
+add_sth_test_() ->
+    {setup,
+     fun() ->
+             {OK, {{_, RC, _}, _, _}} = httpc:request(get, {?URL, []}, [], []),
+             {OK, RC}
+     end,
+     fun(_) -> ok end,
+     fun({OK, RC}) ->
+             [?_assertEqual(ok, OK),
+              ?_assertEqual(RC, 200)]
+     end}.