aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/examples_SUITE.erl30
1 files changed, 30 insertions, 0 deletions
diff --git a/test/examples_SUITE.erl b/test/examples_SUITE.erl
index 6f651c5..7092701 100644
--- a/test/examples_SUITE.erl
+++ b/test/examples_SUITE.erl
@@ -277,6 +277,36 @@ do_rest_basic_auth(Transport, Protocol, Config) ->
<<"Hello, Alladin!\n">> = do_rest_get(Transport, Protocol, "/", undefined, "Alladin:open sesame", Config),
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(Config) ->