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

Fix rest_pastebin example

Browse source
This commit is contained in:
Loïc Hoguin 2016-06-15 13:27:31 +02:00
parent 5003bae369
commit 43ccea87bc
2 changed files with 33 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
examples/rest_pastebin/src/rest_pastebin_app.erl
View file

@ -16,9 +16,9 @@ start(_Type, _Args) ->
{"/[:paste_id]", toppage_handler, []} {"/[:paste_id]", toppage_handler, []}
]} ]}
]), ]),
{ok, _} = cowboy:start_http(http, 100, [{port, 8080}], [ {ok, _} = cowboy:start_clear(http, 100, [{port, 8080}], #{
{env, [{dispatch, Dispatch}]} env => #{dispatch => Dispatch}
]), }),
rest_pastebin_sup:start_link(). rest_pastebin_sup:start_link().
stop(_State) -> stop(_State) ->

30
test/examples_SUITE.erl
View file

@ -277,6 +277,36 @@ do_rest_basic_auth(Transport, Protocol, Config) ->
<<"Hello, Alladin!\n">> = do_rest_get(Transport, Protocol, "/", undefined, "Alladin:open sesame", Config), <<"Hello, Alladin!\n">> = do_rest_get(Transport, Protocol, "/", undefined, "Alladin:open sesame", Config),
ok. ok.
%% REST pastebin.
rest_pastebin(Config) ->
doc("REST pastebin example."),
try
do_compile_and_start(rest_pastebin),
do_rest_pastebin(tcp, http, Config),
do_rest_pastebin(tcp, http2, Config)
after
do_stop(rest_pastebin)
end.
do_rest_pastebin(Transport, Protocol, Config) ->
%% Existing files.
_ = do_rest_get(Transport, Protocol, "/", <<"text/html">>, undefined, Config),
_ = do_rest_get(Transport, Protocol, "/", <<"text/plain">>, undefined, Config),
%% Use POST to upload a new file and download it back.
ConnPid = gun_open([{port, 8080}, {type, Transport}, {protocol, Protocol}|Config]),
Ref = gun:post(ConnPid, "/", [
{<<"content-type">>, <<"application/x-www-form-urlencoded">>}
], <<"paste=this+is+fun">>),
%% @todo Not too happy about 303 here,
%% will need to revisit this example.
{response, _, 303, Headers} = gun:await(ConnPid, Ref),
{_, Location} = lists:keyfind(<<"location">>, 1, Headers),
<<"this is fun">> = do_rest_get(Transport, Protocol, Location, <<"text/plain">>, undefined, Config),
<< "<!DOCTYPE html><html>", _/bits >>
= do_rest_get(Transport, Protocol, Location, <<"text/html">>, undefined, Config),
ok.
%% File server. %% File server.
file_server(Config) -> file_server(Config) ->