diff options
| -rw-r--r-- | test/examples_SUITE.erl | 53 |
1 files changed, 34 insertions, 19 deletions
diff --git a/test/examples_SUITE.erl b/test/examples_SUITE.erl index 69abe84..ec3ebb1 100644 --- a/test/examples_SUITE.erl +++ b/test/examples_SUITE.erl @@ -25,12 +25,20 @@ all() -> ct_helper:all(?MODULE). -%% Remove environment variables inherited from Erlang.mk. init_per_suite(Config) -> + %% Remove environment variables inherited from Erlang.mk. os:unsetenv("ERLANG_MK_TMP"), os:unsetenv("APPS_DIR"), os:unsetenv("DEPS_DIR"), os:unsetenv("ERL_LIBS"), + %% Clone and build Cowboy, Cowlib and Ranch only once and + %% reuse the same build across all tests. + Make = do_find_make_cmd(), + CommonDir = config(priv_dir, Config), + ct:log("~s~n", [os:cmd("git clone --depth 1 https://github.com/ninenines/cowboy " + ++ CommonDir ++ "cowboy")]), + ct:log("~s~n", [os:cmd(Make ++ " -C " ++ CommonDir ++ "cowboy distclean")]), + ct:log("~s~n", [os:cmd(Make ++ " -C " ++ CommonDir ++ "cowboy DEPS_DIR=" ++ CommonDir)]), Config. end_per_suite(_) -> @@ -59,11 +67,18 @@ do_get_paths(Example0) -> Log = Dir ++ "/_rel/" ++ Example ++ "_example/log/erlang.log.1", {Dir, Rel, Log}. -do_compile_and_start(Example) -> +do_compile_and_start(Example, Config) -> Make = do_find_make_cmd(), {Dir, Rel, _} = do_get_paths(Example), + ct:log("~s~n", [os:cmd(Make ++ " -C " ++ Dir ++ " distclean")]), + %% We use a common build for Cowboy, Cowlib and Ranch to speed things up. + CommonDir = config(priv_dir, Config), + ct:log("~s~n", [os:cmd("mkdir " ++ Dir ++ "/deps")]), + ct:log("~s~n", [os:cmd("ln -s " ++ CommonDir ++ "cowboy " ++ Dir ++ "/deps/cowboy")]), + ct:log("~s~n", [os:cmd("ln -s " ++ CommonDir ++ "cowlib " ++ Dir ++ "/deps/cowlib")]), + ct:log("~s~n", [os:cmd("ln -s " ++ CommonDir ++ "ranch " ++ Dir ++ "/deps/ranch")]), %% TERM=dumb disables relx coloring. - ct:log("~s~n", [os:cmd("cd " ++ Dir ++ " && " ++ Make ++ " distclean && " ++ Make ++ " all TERM=dumb")]), + ct:log("~s~n", [os:cmd(Make ++ " -C " ++ Dir ++ " TERM=dumb")]), ct:log("~s~n", [os:cmd(Rel ++ " stop")]), ct:log("~s~n", [os:cmd(Rel ++ " start")]), timer:sleep(2000), @@ -100,7 +115,7 @@ do_get(Transport, Protocol, Path, ReqHeaders, Config) -> hello_world(Config) -> doc("Hello World example."), try - do_compile_and_start(hello_world), + do_compile_and_start(hello_world, Config), do_hello_world(tcp, http, Config), do_hello_world(tcp, http2, Config) after @@ -110,7 +125,7 @@ hello_world(Config) -> ssl_hello_world(Config) -> doc("SSL Hello World example."), try - do_compile_and_start(ssl_hello_world), + do_compile_and_start(ssl_hello_world, Config), do_hello_world(ssl, http, Config), do_hello_world(ssl, http2, Config) after @@ -126,7 +141,7 @@ do_hello_world(Transport, Protocol, Config) -> chunked_hello_world(Config) -> doc("Chunked Hello World example."), try - do_compile_and_start(chunked_hello_world), + do_compile_and_start(chunked_hello_world, Config), do_chunked_hello_world(tcp, http, Config), do_chunked_hello_world(tcp, http2, Config) after @@ -155,7 +170,7 @@ do_chunked_hello_world(Transport, Protocol, Config) -> compress_response(Config) -> doc("Compressed response example."), try - do_compile_and_start(compress_response), + do_compile_and_start(compress_response, Config), do_compress_response(tcp, http, Config), do_compress_response(tcp, http2, Config) after @@ -174,7 +189,7 @@ do_compress_response(Transport, Protocol, Config) -> cookie(Config) -> doc("Cookie example."), try - do_compile_and_start(cookie), + do_compile_and_start(cookie, Config), do_cookie(tcp, http, Config), do_cookie(tcp, http2, Config) after @@ -192,7 +207,7 @@ do_cookie(Transport, Protocol, Config) -> echo_get(Config) -> doc("GET parameter echo example."), try - do_compile_and_start(echo_get), + do_compile_and_start(echo_get, Config), do_echo_get(tcp, http, Config), do_echo_get(tcp, http2, Config) after @@ -209,7 +224,7 @@ do_echo_get(Transport, Protocol, Config) -> echo_post(Config) -> doc("POST parameter echo example."), try - do_compile_and_start(echo_post), + do_compile_and_start(echo_post, Config), do_echo_post(tcp, http, Config), do_echo_post(tcp, http2, Config) after @@ -230,7 +245,7 @@ do_echo_post(Transport, Protocol, Config) -> eventsource(Config) -> doc("Eventsource example."), try - do_compile_and_start(eventsource), + do_compile_and_start(eventsource, Config), do_eventsource(tcp, http, Config), do_eventsource(tcp, http2, Config) after @@ -253,7 +268,7 @@ do_eventsource(Transport, Protocol, Config) -> rest_hello_world(Config) -> doc("REST Hello World example."), try - do_compile_and_start(rest_hello_world), + do_compile_and_start(rest_hello_world, Config), do_rest_hello_world(tcp, http, Config), do_rest_hello_world(tcp, http2, Config) after @@ -300,7 +315,7 @@ do_rest_get(Transport, Protocol, Path, Accept, Auth, Config) -> rest_basic_auth(Config) -> doc("REST basic authorization example."), try - do_compile_and_start(rest_basic_auth), + do_compile_and_start(rest_basic_auth, Config), do_rest_basic_auth(tcp, http, Config), do_rest_basic_auth(tcp, http2, Config) after @@ -317,7 +332,7 @@ do_rest_basic_auth(Transport, Protocol, Config) -> rest_pastebin(Config) -> doc("REST pastebin example."), try - do_compile_and_start(rest_pastebin), + do_compile_and_start(rest_pastebin, Config), do_rest_pastebin(tcp, http, Config), do_rest_pastebin(tcp, http2, Config) after @@ -347,7 +362,7 @@ do_rest_pastebin(Transport, Protocol, Config) -> file_server(Config) -> doc("File server example with directory listing."), try - do_compile_and_start(file_server), + do_compile_and_start(file_server, Config), do_file_server(tcp, http, Config), do_file_server(tcp, http2, Config) after @@ -371,7 +386,7 @@ do_file_server(Transport, Protocol, Config) -> markdown_middleware(Config) -> doc("Markdown middleware example."), try - do_compile_and_start(markdown_middleware), + do_compile_and_start(markdown_middleware, Config), do_markdown_middleware(tcp, http, Config), do_markdown_middleware(tcp, http2, Config) after @@ -388,7 +403,7 @@ do_markdown_middleware(Transport, Protocol, Config) -> upload(Config) -> doc("Upload example."), try - do_compile_and_start(upload), + do_compile_and_start(upload, Config), do_upload(tcp, http, Config), do_upload(tcp, http2, Config) after @@ -413,10 +428,10 @@ do_upload(Transport, Protocol, Config) -> %% Websocket. -websocket(_) -> +websocket(Config) -> doc("Websocket example."), try - do_compile_and_start(websocket), + do_compile_and_start(websocket, Config), %% We can only initiate a Websocket connection from HTTP/1.1. {ok, Pid} = gun:open("127.0.0.1", 8080, #{protocols => [http], retry => 0}), {ok, http} = gun:await_up(Pid), |