aboutsummaryrefslogtreecommitdiffstats
path: root/test/http_SUITE.erl
diff options
context:
space:
mode:
Diffstat (limited to 'test/http_SUITE.erl')
-rw-r--r--test/http_SUITE.erl24
1 files changed, 21 insertions, 3 deletions
diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl
index 13e7b0b..20c65c8 100644
--- a/test/http_SUITE.erl
+++ b/test/http_SUITE.erl
@@ -1,4 +1,4 @@
-%% Copyright (c) 2011-2013, Loïc Hoguin <[email protected]>
+%% Copyright (c) 2011-2014, Loïc Hoguin <[email protected]>
%% Copyright (c) 2011, Anthony Ramine <[email protected]>
%%
%% Permission to use, copy, modify, and/or distribute this software for any
@@ -49,6 +49,7 @@
-export([keepalive_nl/1]).
-export([keepalive_stream_loop/1]).
-export([multipart/1]).
+-export([multipart_large/1]).
-export([nc_rand/1]).
-export([nc_zero/1]).
-export([onrequest/1]).
@@ -135,6 +136,7 @@ groups() ->
keepalive_nl,
keepalive_stream_loop,
multipart,
+ multipart_large,
nc_rand,
nc_zero,
pipeline,
@@ -391,6 +393,7 @@ init_dispatch(Config) ->
{"/static_specify_file/[...]", cowboy_static,
{file, ?config(static_dir, Config) ++ "/style.css"}},
{"/multipart", http_multipart, []},
+ {"/multipart/large", http_multipart_stream, []},
{"/echo/body", http_echo_body, []},
{"/echo/body_qs", http_body_qs, []},
{"/param_all", rest_param_all, []},
@@ -755,8 +758,8 @@ multipart(Config) ->
"This is a preamble."
"\r\n--OHai\r\nX-Name:answer\r\n\r\n42"
"\r\n--OHai\r\nServer:Cowboy\r\n\r\nIt rocks!\r\n"
- "\r\n--OHai--"
- "This is an epiloque."
+ "\r\n--OHai--\r\n"
+ "This is an epilogue."
>>,
{ok, Client2} = cowboy_client:request(<<"POST">>,
build_url("/multipart", Config),
@@ -770,6 +773,21 @@ multipart(Config) ->
{[{<<"server">>, <<"Cowboy">>}], <<"It rocks!\r\n">>}
].
+multipart_large(Config) ->
+ Client = ?config(client, Config),
+ Boundary = "----------",
+ Big = << 0:9000000/unit:8 >>,
+ Bigger = << 0:9999999/unit:8 >>,
+ Body = ["--", Boundary, "\r\ncontent-length: 9000000\r\n\r\n", Big, "\r\n",
+ "--", Boundary, "\r\ncontent-length: 9999999\r\n\r\n", Bigger, "\r\n",
+ "--", Boundary, "--\r\n"],
+ {ok, Client2} = cowboy_client:request(<<"POST">>,
+ build_url("/multipart/large", Config),
+ [{<<"content-type">>, ["multipart/x-large; boundary=", Boundary]}],
+ Body, Client),
+ {ok, 200, _, _} = cowboy_client:response(Client2),
+ ok.
+
nc_reqs(Config, Input) ->
Cat = os:find_executable("cat"),
Nc = os:find_executable("nc"),