diff options
author | Loïc Hoguin <[email protected]> | 2016-06-08 20:18:09 +0200 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2016-06-08 20:18:09 +0200 |
commit | 98323c2d72ffa0a164d525b39290125a6ab3b070 (patch) | |
tree | b11cdf4eb971f1a76856edfe047d1949feef5e84 /test | |
parent | fd07b389524f54f79175a5ac5d9f9050fb66bc61 (diff) | |
download | cowboy-98323c2d72ffa0a164d525b39290125a6ab3b070.tar.gz cowboy-98323c2d72ffa0a164d525b39290125a6ab3b070.tar.bz2 cowboy-98323c2d72ffa0a164d525b39290125a6ab3b070.zip |
Fix echo_get example
Diffstat (limited to 'test')
-rw-r--r-- | test/examples_SUITE.erl | 36 |
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. |