umgeher/cowboy
0
Fork 0
mirror of https://github.com/ninenines/cowboy.git synced 2025-07-14 20:30:23 +00:00
Code Issues Wiki Activity

Add cowboy_http_req:set_resp_cookie/4

Browse source 
Pretty much just an alias for a combination of set_resp_header and cookie.
This commit is contained in:
Loïc Hoguin 2011-12-07 11:54:57 +01:00
parent a12a910341
commit ce92ab1e63
3 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test/http_SUITE.erl
View file

@ -505,7 +505,8 @@ set_resp_header(Config) ->
ok = gen_tcp:send(Socket, "GET /set_resp/header HTTP/1.1\r\n"
"Host: localhost\r\nConnection: close\r\n\r\n"),
{ok, Data} = gen_tcp:recv(Socket, 0, 6000),
{_Start, _Length} = binary:match(Data, <<"Vary: Accept">>).
{_, _} = binary:match(Data, <<"Vary: Accept">>),
{_, _} = binary:match(Data, <<"Set-Cookie: ">>).
set_resp_overwrite(Config) ->
{port, Port} = lists:keyfind(port, 1, Config),

4
test/http_handler_set_resp.erl
View file

@ -13,7 +13,9 @@ init({_Transport, http}, Req, Opts) ->
{ok, Req3} = cowboy_http_req:set_resp_body(Body, Req2),
{ok, Req4} = cowboy_http_req:set_resp_header(
<<"X-Cowboy-Test">>, <<"ok">>, Req3),
{ok, Req4, undefined}.
{ok, Req5} = cowboy_http_req:set_resp_cookie(
<<"cake">>, <<"lie">>, [], Req4),
{ok, Req5, undefined}.
handle(Req, State) ->
case cowboy_http_req:has_resp_header(<<"X-Cowboy-Test">>, Req) of