summaryrefslogtreecommitdiff
path: root/test/catlfish_test.erl
blob: 578298473cc26fc8901e2eb2c38a5ba53ef69bd7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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}.