123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899 |
- -module(misc_SUITE).
- -compile(export_all).
- -compile(nowarn_export_all).
- -import(ct_helper, [config/2]).
- -import(ct_helper, [doc/1]).
- -import(cowboy_test, [gun_open/1]).
- all() ->
- [{group, no_env}|cowboy_test:common_all()].
- groups() ->
- Common = ct_helper:all(?MODULE) -- [restart_gracefully, set_env_missing],
- [
- {app, [], [restart_gracefully]},
- {no_env, [], [set_env_missing]}
- |cowboy_test:common_groups(Common)].
- init_per_group(app, Config) ->
- cowboy_test:init_common_groups(http, Config, ?MODULE);
- init_per_group(Name=no_env, Config) ->
- cowboy_test:init_http(Name, #{}, Config);
- init_per_group(Name, Config) ->
- cowboy_test:init_common_groups(Name, Config, ?MODULE).
- end_per_group(Name, _) ->
- cowboy:stop_listener(Name).
- init_dispatch(_) ->
- cowboy_router:compile([{"localhost", [
- {"/", hello_h, []}
- ]}]).
- restart_gracefully(Config) ->
- doc("Ensure we can process request when the cowboy application is being restarted."),
- ConnPid = gun_open(Config),
-
- Ref1 = gun:get(ConnPid, "/"),
- {response, _, 200, _} = gun:await(ConnPid, Ref1),
-
- ok = application:stop(cowboy),
-
- Ref2 = gun:get(ConnPid, "/"),
- {response, _, 200, _} = gun:await(ConnPid, Ref2),
-
- ok = application:start(cowboy),
-
- Ref3 = gun:get(ConnPid, "/"),
- {response, _, 200, _} = gun:await(ConnPid, Ref3),
- ok.
- router_invalid_path(Config) ->
- doc("Ensure a path with invalid percent-encoded characters results in a 400."),
- ConnPid = gun_open(Config),
- Ref = gun:get(ConnPid, "/version/path/%\\u0016\\u0016/path"),
- {response, _, 400, _} = gun:await(ConnPid, Ref),
- ok.
- set_env(Config) ->
- doc("Live replace a middleware environment value."),
- ConnPid1 = gun_open(Config),
- Ref1 = gun:get(ConnPid1, "/"),
- {response, _, 200, _} = gun:await(ConnPid1, Ref1),
- Listener = proplists:get_value(name, config(tc_group_properties, Config)),
- cowboy:set_env(Listener, dispatch, []),
-
- ConnPid2 = gun_open(Config),
- Ref2 = gun:get(ConnPid2, "/"),
- {response, _, 400, _} = gun:await(ConnPid2, Ref2),
- ok.
- set_env_missing(Config) ->
- doc("Live replace a middleware environment value when env was not provided."),
- ConnPid1 = gun_open(Config),
- Ref1 = gun:get(ConnPid1, "/"),
- {response, _, 500, _} = gun:await(ConnPid1, Ref1),
- Listener = proplists:get_value(name, config(tc_group_properties, Config)),
- cowboy:set_env(Listener, dispatch, []),
-
- ConnPid2 = gun_open(Config),
- Ref2 = gun:get(ConnPid2, "/"),
- {response, _, 400, _} = gun:await(ConnPid2, Ref2),
- ok.
|