diff options
Diffstat (limited to 'test/req_SUITE.erl')
| -rw-r--r-- | test/req_SUITE.erl | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/test/req_SUITE.erl b/test/req_SUITE.erl index 26ced62..2d1fe38 100644 --- a/test/req_SUITE.erl +++ b/test/req_SUITE.erl @@ -114,6 +114,30 @@ do_get_body(Path, Config) -> do_get_body(Path, Headers, Config) -> do_body("GET", Path, Headers, Config). +do_get_inform(Path, Config) -> + ConnPid = gun_open(Config), + Ref = gun:get(ConnPid, Path, [{<<"accept-encoding">>, <<"gzip">>}]), + case gun:await(ConnPid, Ref) of + {response, _, RespStatus, RespHeaders} -> + %% We don't care about the body. + gun:close(ConnPid), + {RespStatus, RespHeaders}; + {inform, InfoStatus, InfoHeaders} -> + {response, IsFin, RespStatus, RespHeaders} + = case gun:await(ConnPid, Ref) of + {inform, InfoStatus, InfoHeaders} -> + gun:await(ConnPid, Ref); + Response -> + Response + end, + {ok, RespBody} = case IsFin of + nofin -> gun:await_body(ConnPid, Ref); + fin -> {ok, <<>>} + end, + gun:close(ConnPid), + {InfoStatus, InfoHeaders, RespStatus, RespHeaders, do_decode(RespHeaders, RespBody)} + end. + do_decode(Headers, Body) -> case lists:keyfind(<<"content-encoding">>, 1, Headers) of {_, <<"gzip">>} -> zlib:gunzip(Body); @@ -703,6 +727,23 @@ delete_resp_header(Config) -> false = lists:keymember(<<"content-type">>, 1, Headers), ok. +inform2(Config) -> + doc("Informational response(s) without headers, followed by the real response."), + {102, [], 200, _, _} = do_get_inform("/resp/inform2/102", Config), + {102, [], 200, _, _} = do_get_inform("/resp/inform2/binary", Config), + {500, _} = do_get_inform("/resp/inform2/error", Config), + {102, [], 200, _, _} = do_get_inform("/resp/inform2/twice", Config), + ok. + +inform3(Config) -> + doc("Informational response(s) with headers, followed by the real response."), + Headers = [{<<"ext-header">>, <<"ext-value">>}], + {102, Headers, 200, _, _} = do_get_inform("/resp/inform3/102", Config), + {102, Headers, 200, _, _} = do_get_inform("/resp/inform3/binary", Config), + {500, _} = do_get_inform("/resp/inform3/error", Config), + {102, Headers, 200, _, _} = do_get_inform("/resp/inform3/twice", Config), + ok. + reply2(Config) -> doc("Response with default headers and no body."), {200, _, _} = do_get("/resp/reply2/200", Config), |