aboutsummaryrefslogtreecommitdiffstats
path: root/test/http_SUITE.erl
diff options
context:
space:
mode:
authorYAMAMOTO Takashi <[email protected]>2013-08-25 02:13:53 +0900
committerYAMAMOTO Takashi <[email protected]>2013-09-03 02:59:12 +0900
commitd2adbf3de66f15dc0b654c76ee7bee7bd9c8c778 (patch)
tree7fef2f7d4bed4215eb83bdd1e1117f6315ffd142 /test/http_SUITE.erl
parent201c53cb9f8217d497fb7acae2fa7d64f04f4022 (diff)
downloadcowboy-d2adbf3de66f15dc0b654c76ee7bee7bd9c8c778.tar.gz
cowboy-d2adbf3de66f15dc0b654c76ee7bee7bd9c8c778.tar.bz2
cowboy-d2adbf3de66f15dc0b654c76ee7bee7bd9c8c778.zip
add some tests for Host header parser
Diffstat (limited to 'test/http_SUITE.erl')
-rw-r--r--test/http_SUITE.erl44
1 files changed, 44 insertions, 0 deletions
diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl
index 2135fdc..f784c50 100644
--- a/test/http_SUITE.erl
+++ b/test/http_SUITE.erl
@@ -51,6 +51,7 @@
-export([onresponse_capitalize/1]).
-export([onresponse_crash/1]).
-export([onresponse_reply/1]).
+-export([parse_host/1]).
-export([pipeline/1]).
-export([pipeline_long_polling/1]).
-export([rest_bad_accept/1]).
@@ -103,6 +104,7 @@ all() ->
{group, onrequest},
{group, onresponse},
{group, onresponse_capitalize},
+ {group, parse_host},
{group, set_env}
].
@@ -184,6 +186,9 @@ groups() ->
{onresponse_capitalize, [parallel], [
onresponse_capitalize
]},
+ {parse_host, [], [
+ parse_host
+ ]},
{set_env, [], [
set_env_dispatch
]}
@@ -297,6 +302,22 @@ init_per_group(onresponse_capitalize, Config) ->
{ok, Client} = cowboy_client:init([]),
[{scheme, <<"http">>}, {port, Port}, {opts, []},
{transport, Transport}, {client, Client}|Config];
+init_per_group(parse_host, Config) ->
+ Transport = ranch_tcp,
+ Dispatch = cowboy_router:compile([
+ {'_', [
+ {"/req_attr", http_req_attr, []}
+ ]}
+ ]),
+ {ok, _} = cowboy:start_http(http, 100, [{port, 0}], [
+ {env, [{dispatch, Dispatch}]},
+ {max_keepalive, 50},
+ {timeout, 500}
+ ]),
+ Port = ranch:get_port(http),
+ {ok, Client} = cowboy_client:init([]),
+ [{scheme, <<"http">>}, {port, Port}, {opts, []},
+ {transport, Transport}, {client, Client}|Config];
init_per_group(set_env, Config) ->
Transport = ranch_tcp,
{ok, _} = cowboy:start_http(set_env, 100, [{port, 0}], [
@@ -802,6 +823,29 @@ onresponse_hook(_, Headers, _, Req) ->
<<"777 Lucky">>, [{<<"x-hook">>, <<"onresponse">>}|Headers], Req),
Req2.
+parse_host(Config) ->
+ Tests = [
+ {<<"example.org\n8080">>, <<"example.org:8080">>},
+ {<<"example.org\n80">>, <<"example.org">>},
+ {<<"192.0.2.1\n8080">>, <<"192.0.2.1:8080">>},
+ {<<"192.0.2.1\n80">>, <<"192.0.2.1">>},
+ {<<"[2001:db8::1]\n8080">>, <<"[2001:db8::1]:8080">>},
+ {<<"[2001:db8::1]\n80">>, <<"[2001:db8::1]">>},
+ {<<"[::ffff:192.0.2.1]\n8080">>, <<"[::ffff:192.0.2.1]:8080">>},
+ {<<"[::ffff:192.0.2.1]\n80">>, <<"[::ffff:192.0.2.1]">>}
+ ],
+ [begin
+ Client = ?config(client, Config),
+ {ok, Client2} = cowboy_client:request(<<"GET">>,
+ build_url("/req_attr?attr=host_and_port", Config),
+ [{<<"host">>, Host}],
+ Client),
+ {ok, 200, _, Client3} = cowboy_client:response(Client2),
+ {ok, Value, Client4} = cowboy_client:response_body(Client3),
+ {error, closed} = cowboy_client:response(Client4),
+ Value
+ end || {Value, Host} <- Tests].
+
pipeline(Config) ->
Client = ?config(client, Config),
{ok, Client2} = cowboy_client:request(<<"GET">>,