aboutsummaryrefslogtreecommitdiffstats
path: root/test/http_SUITE.erl
diff options
context:
space:
mode:
authorLoïc Hoguin <[email protected]>2013-02-20 12:14:21 +0100
committerLoïc Hoguin <[email protected]>2013-02-20 12:14:21 +0100
commitb2ffff9bec7f9d137ab5abdc3b77203914b5ae63 (patch)
treea4d22508071427e25546068b81db620dcb3a52f9 /test/http_SUITE.erl
parent76b5cfea3f4a755b31a95b24176afeb87adaf442 (diff)
downloadcowboy-b2ffff9bec7f9d137ab5abdc3b77203914b5ae63.tar.gz
cowboy-b2ffff9bec7f9d137ab5abdc3b77203914b5ae63.tar.bz2
cowboy-b2ffff9bec7f9d137ab5abdc3b77203914b5ae63.zip
Add cowboy:set_env/3
Diffstat (limited to 'test/http_SUITE.erl')
-rw-r--r--test/http_SUITE.erl29
1 files changed, 28 insertions, 1 deletions
diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl
index 209be7e..8e53dc7 100644
--- a/test/http_SUITE.erl
+++ b/test/http_SUITE.erl
@@ -61,6 +61,7 @@
-export([rest_patch/1]).
-export([rest_resource_etags/1]).
-export([rest_resource_etags_if_none_match/1]).
+-export([set_env_dispatch/1]).
-export([set_resp_body/1]).
-export([set_resp_header/1]).
-export([set_resp_overwrite/1]).
@@ -90,7 +91,8 @@ all() ->
{group, https_compress},
{group, onrequest},
{group, onresponse},
- {group, onresponse_capitalize}
+ {group, onresponse_capitalize},
+ {group, set_env}
].
groups() ->
@@ -159,6 +161,9 @@ groups() ->
]},
{onresponse_capitalize, [], [
onresponse_capitalize
+ ]},
+ {set_env, [], [
+ set_env_dispatch
]}
].
@@ -273,6 +278,17 @@ init_per_group(onresponse_capitalize, Config) ->
]),
{ok, Client} = cowboy_client:init([]),
[{scheme, <<"http">>}, {port, Port}, {opts, []},
+ {transport, Transport}, {client, Client}|Config];
+init_per_group(set_env, Config) ->
+ Port = 33087,
+ Transport = ranch_tcp,
+ {ok, _} = cowboy:start_http(set_env, 100, [{port, Port}], [
+ {env, [{dispatch, []}]},
+ {max_keepalive, 50},
+ {timeout, 500}
+ ]),
+ {ok, Client} = cowboy_client:init([]),
+ [{scheme, <<"http">>}, {port, Port}, {opts, []},
{transport, Transport}, {client, Client}|Config].
end_per_group(Group, Config) when Group =:= https; Group =:= https_compress ->
@@ -923,6 +939,17 @@ rest_resource_etags_if_none_match(Config) ->
{Ret, Type}
end || {Status, ETag, Type} <- Tests].
+set_env_dispatch(Config) ->
+ Client = ?config(client, Config),
+ {ok, Client2} = cowboy_client:request(<<"GET">>,
+ build_url("/", Config), Client),
+ {ok, 400, _, _} = cowboy_client:response(Client2),
+ ok = cowboy:set_env(set_env, dispatch,
+ cowboy_router:compile([{'_', [{"/", http_handler, []}]}])),
+ {ok, Client3} = cowboy_client:request(<<"GET">>,
+ build_url("/", Config), Client),
+ {ok, 200, _, _} = cowboy_client:response(Client3).
+
set_resp_body(Config) ->
Client = ?config(client, Config),
{ok, Client2} = cowboy_client:request(<<"GET">>,