aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorLoïc Hoguin <[email protected]>2018-11-02 13:54:19 +0100
committerLoïc Hoguin <[email protected]>2018-11-02 13:54:19 +0100
commite0b036fe68579b3ffb69b450acf2d17bb7162cf3 (patch)
tree4be263290f0ae3bef6b9bd940f6624cf035607d3 /test
parent399b6a16b4a571e293437dcc8f85808f83b32ff6 (diff)
downloadcowboy-e0b036fe68579b3ffb69b450acf2d17bb7162cf3.tar.gz
cowboy-e0b036fe68579b3ffb69b450acf2d17bb7162cf3.tar.bz2
cowboy-e0b036fe68579b3ffb69b450acf2d17bb7162cf3.zip
Add tests for charsets_provided
Fix cases where the q-value is 0 and where a wildcard was sent in the accept-charset header. Also don't send a charset in the content-type of the response if the media type is not text. Thanks to Philip Witty for help figuring this out.
Diffstat (limited to 'test')
-rw-r--r--test/handlers/charsets_provided_empty_h.erl30
-rw-r--r--test/handlers/charsets_provided_h.erl28
-rw-r--r--test/rest_handler_SUITE.erl132
3 files changed, 190 insertions, 0 deletions
diff --git a/test/handlers/charsets_provided_empty_h.erl b/test/handlers/charsets_provided_empty_h.erl
new file mode 100644
index 0000000..0548a5e
--- /dev/null
+++ b/test/handlers/charsets_provided_empty_h.erl
@@ -0,0 +1,30 @@
+%% This module has a text and non-text media type,
+%% but provides no charset. All requests will result
+%% in a 406 not acceptable.
+
+-module(charsets_provided_empty_h).
+
+-export([init/2]).
+-export([content_types_provided/2]).
+-export([charsets_provided/2]).
+-export([get_text_plain/2]).
+-export([get_application_json/2]).
+
+init(Req, Opts) ->
+ {cowboy_rest, Req, Opts}.
+
+content_types_provided(Req, State) ->
+ {[
+ {{<<"text">>, <<"plain">>, []}, get_text_plain},
+ {{<<"application">>, <<"json">>, []}, get_application_json}
+ ], Req, State}.
+
+charsets_provided(Req, State) ->
+ {[], Req, State}.
+
+get_text_plain(Req, State) ->
+ {<<"This is REST!">>, Req, State}.
+
+get_application_json(Req, State) ->
+ {<<"{\"hello\": \"rest\"}">>, Req, State}.
+
diff --git a/test/handlers/charsets_provided_h.erl b/test/handlers/charsets_provided_h.erl
new file mode 100644
index 0000000..4a08e78
--- /dev/null
+++ b/test/handlers/charsets_provided_h.erl
@@ -0,0 +1,28 @@
+%% This module has a text and non-text media type,
+%% and provides two charsets.
+
+-module(charsets_provided_h).
+
+-export([init/2]).
+-export([content_types_provided/2]).
+-export([charsets_provided/2]).
+-export([get_text_plain/2]).
+-export([get_application_json/2]).
+
+init(Req, Opts) ->
+ {cowboy_rest, Req, Opts}.
+
+content_types_provided(Req, State) ->
+ {[
+ {{<<"text">>, <<"plain">>, []}, get_text_plain},
+ {{<<"application">>, <<"json">>, []}, get_application_json}
+ ], Req, State}.
+
+charsets_provided(Req, State) ->
+ {[<<"utf-8">>, <<"utf-16">>], Req, State}.
+
+get_text_plain(Req, State) ->
+ {<<"This is REST!">>, Req, State}.
+
+get_application_json(Req, State) ->
+ {<<"{\"hello\": \"rest\"}">>, Req, State}.
diff --git a/test/rest_handler_SUITE.erl b/test/rest_handler_SUITE.erl
index 491c7bb..93532fe 100644
--- a/test/rest_handler_SUITE.erl
+++ b/test/rest_handler_SUITE.erl
@@ -39,6 +39,8 @@ end_per_group(Name, _) ->
init_dispatch(_) ->
cowboy_router:compile([{'_', [
{"/", rest_hello_h, []},
+ {"/charsets_provided", charsets_provided_h, []},
+ {"/charsets_provided_empty", charsets_provided_empty_h, []},
{"/charset_in_content_types_provided",
charset_in_content_types_provided_h, []},
{"/charset_in_content_types_provided_implicit",
@@ -148,6 +150,136 @@ charset_in_content_types_provided_implicit_no_callback(Config) ->
{_, <<"text/plain">>} = lists:keyfind(<<"content-type">>, 1, Headers),
ok.
+charsets_provided_match_text(Config) ->
+ doc("When the media type is text and the charsets_provided callback exists "
+ "and the accept-charset header was sent, the selected charset is sent "
+ "back in the content-type of the response."),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/charsets_provided", [
+ {<<"accept">>, <<"text/plain">>},
+ {<<"accept-charset">>, <<"utf-8;q=0.5, utf-16">>},
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 200, Headers} = gun:await(ConnPid, Ref),
+ {_, <<"text/plain; charset=utf-16">>} = lists:keyfind(<<"content-type">>, 1, Headers),
+ ok.
+
+charsets_provided_match_other(Config) ->
+ doc("When the media type is not text and the charsets_provided callback exists "
+ "and the accept-charset header was sent, the selected charset is not sent "
+ "back in the content-type of the response."),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/charsets_provided", [
+ {<<"accept">>, <<"application/json">>},
+ {<<"accept-charset">>, <<"utf-8;q=0.5, utf-16">>},
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 200, Headers} = gun:await(ConnPid, Ref),
+ {_, <<"application/json">>} = lists:keyfind(<<"content-type">>, 1, Headers),
+ ok.
+
+charsets_provided_wildcard_text(Config) ->
+ doc("When the media type is text and the charsets_provided callback exists "
+ "and a wildcard accept-charset header was sent, the selected charset is sent "
+ "back in the content-type of the response."),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/charsets_provided", [
+ {<<"accept">>, <<"text/plain">>},
+ {<<"accept-charset">>, <<"*">>},
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 200, Headers} = gun:await(ConnPid, Ref),
+ {_, <<"text/plain; charset=utf-8">>} = lists:keyfind(<<"content-type">>, 1, Headers),
+ ok.
+
+charsets_provided_wildcard_other(Config) ->
+ doc("When the media type is not text and the charsets_provided callback exists "
+ "and a wildcard accept-charset header was sent, the selected charset is not sent "
+ "back in the content-type of the response."),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/charsets_provided", [
+ {<<"accept">>, <<"application/json">>},
+ {<<"accept-charset">>, <<"*">>},
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 200, Headers} = gun:await(ConnPid, Ref),
+ {_, <<"application/json">>} = lists:keyfind(<<"content-type">>, 1, Headers),
+ ok.
+
+charsets_provided_nomatch(Config) ->
+ doc("Regardless of the media type negotiated, if no charset is found in the "
+ "accept-charset header match a charset configured in charsets_provided, "
+ "then a 406 not acceptable response is sent back."),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/charsets_provided", [
+ {<<"accept">>, <<"text/plain">>},
+ {<<"accept-charset">>, <<"utf-8;q=0, iso-8859-1">>},
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 406, _} = gun:await(ConnPid, Ref),
+ ok.
+
+charsets_provided_noheader_text(Config) ->
+ doc("When the media type is text and the charsets_provided callback exists "
+ "but the accept-charset header was not sent, the first charset in the "
+ "list is selected and sent back in the content-type of the response."),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/charsets_provided", [
+ {<<"accept">>, <<"text/plain">>},
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 200, Headers} = gun:await(ConnPid, Ref),
+ {_, <<"text/plain; charset=utf-8">>} = lists:keyfind(<<"content-type">>, 1, Headers),
+ ok.
+
+charsets_provided_noheader_other(Config) ->
+ doc("When the media type is not text and the charsets_provided callback exists "
+ "but the accept-charset header was not sent, the first charset in the "
+ "list is selected but is not sent back in the content-type of the response."),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/charsets_provided", [
+ {<<"accept">>, <<"application/json">>},
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 200, Headers} = gun:await(ConnPid, Ref),
+ {_, <<"application/json">>} = lists:keyfind(<<"content-type">>, 1, Headers),
+ ok.
+
+charsets_provided_empty(Config) ->
+ doc("Regardless of the media type negotiated, if the charsets_provided "
+ "callback returns an empty list a 406 not acceptable response is sent back."),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/charsets_provided_empty", [
+ {<<"accept">>, <<"text/plain">>},
+ {<<"accept-charset">>, <<"utf-8q=0.5, utf-16">>},
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 406, _} = gun:await(ConnPid, Ref),
+ ok.
+
+charsets_provided_empty_wildcard(Config) ->
+ doc("Regardless of the media type negotiated, if the charsets_provided "
+ "callback returns an empty list a 406 not acceptable response is sent back."),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/charsets_provided_empty", [
+ {<<"accept">>, <<"text/plain">>},
+ {<<"accept-charset">>, <<"*">>},
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 406, _} = gun:await(ConnPid, Ref),
+ ok.
+
+charsets_provided_empty_noheader(Config) ->
+ doc("Regardless of the media type negotiated, if the charsets_provided "
+ "callback returns an empty list a 406 not acceptable response is sent back."),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/charsets_provided_empty", [
+ {<<"accept">>, <<"text/plain">>},
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 406, _} = gun:await(ConnPid, Ref),
+ ok.
+
provide_callback_missing(Config) ->
doc("A 500 response must be sent when the ProvideCallback can't be called."),
ConnPid = gun_open(Config),