aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorLoïc Hoguin <[email protected]>2016-06-08 20:18:09 +0200
committerLoïc Hoguin <[email protected]>2016-06-08 20:18:09 +0200
commit98323c2d72ffa0a164d525b39290125a6ab3b070 (patch)
treeb11cdf4eb971f1a76856edfe047d1949feef5e84 /test
parentfd07b389524f54f79175a5ac5d9f9050fb66bc61 (diff)
downloadcowboy-98323c2d72ffa0a164d525b39290125a6ab3b070.tar.gz
cowboy-98323c2d72ffa0a164d525b39290125a6ab3b070.tar.bz2
cowboy-98323c2d72ffa0a164d525b39290125a6ab3b070.zip
Fix echo_get example
Diffstat (limited to 'test')
-rw-r--r--test/examples_SUITE.erl36
1 files changed, 29 insertions, 7 deletions
diff --git a/test/examples_SUITE.erl b/test/examples_SUITE.erl
index aa7e507..a461d79 100644
--- a/test/examples_SUITE.erl
+++ b/test/examples_SUITE.erl
@@ -42,19 +42,22 @@ do_get_paths(Example0) ->
{ok, CWD} = file:get_cwd(),
Dir = CWD ++ "/../../examples/" ++ Example,
Rel = Dir ++ "/_rel/" ++ Example ++ "_example/bin/" ++ Example ++ "_example",
- {Dir, Rel}.
+ Log = Dir ++ "/_rel/" ++ Example ++ "_example/log/erlang.log.1",
+ {Dir, Rel, Log}.
do_compile_and_start(Example) ->
- {Dir, Rel} = do_get_paths(Example),
- ct:comment("~s~n", [os:cmd("cd " ++ Dir ++ " && make distclean && make all")]),
- ct:comment("~s~n", [os:cmd(Rel ++ " stop")]),
- ct:comment("~s~n", [os:cmd(Rel ++ " start")]),
+ {Dir, Rel, _} = do_get_paths(Example),
+ %% TERM=dumb disables relx coloring.
+ ct:log("~s~n", [os:cmd("cd " ++ Dir ++ " && make distclean && TERM=dumb make all")]),
+ ct:log("~s~n", [os:cmd(Rel ++ " stop")]),
+ ct:log("~s~n", [os:cmd(Rel ++ " start")]),
timer:sleep(2000),
ok.
do_stop(Example) ->
- {_, Rel} = do_get_paths(Example),
- ct:comment("~s~n", [os:cmd(Rel ++ " stop")]),
+ {_, Rel, Log} = do_get_paths(Example),
+ ct:log("~s~n", [os:cmd(Rel ++ " stop")]),
+ ct:log("~s~n", [element(2, file:read_file(Log))]),
ok.
%% TCP and SSL Hello World.
@@ -89,3 +92,22 @@ do_hello_world(Transport, Protocol, Config) ->
{response, nofin, 200, _} = gun:await(ConnPid, Ref),
{ok, <<"Hello world!">>} = gun:await_body(ConnPid, Ref),
ok.
+
+%% Echo GET and POST.
+
+echo_get(Config) ->
+ doc("GET parameter echo example."),
+ try
+ do_compile_and_start(echo_get),
+ do_echo_get(tcp, http, Config),
+ do_echo_get(tcp, http2, Config)
+ after
+ do_stop(echo_get)
+ end.
+
+do_echo_get(Transport, Protocol, Config) ->
+ ConnPid = gun_open([{port, 8080}, {type, Transport}, {protocol, Protocol}|Config]),
+ Ref = gun:get(ConnPid, "/?echo=this+is+fun"),
+ {response, nofin, 200, _} = gun:await(ConnPid, Ref),
+ {ok, <<"this is fun">>} = gun:await_body(ConnPid, Ref),
+ ok.