diff options
| author | Ingela Anderton Andin <[email protected]> | 2017-10-12 11:55:30 +0200 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2017-11-01 11:04:33 +0100 |
| commit | eff478611df711b328fd5e349e1c937ea8be4b5b (patch) | |
| tree | cd48a610ee1311b321d3d74cc01c2db0485fed0c /lib/inets/test | |
| parent | 425b826e7fefe3bd4b174adfb8ead5953dd5dadf (diff) | |
| download | otp-eff478611df711b328fd5e349e1c937ea8be4b5b.tar.gz otp-eff478611df711b328fd5e349e1c937ea8be4b5b.tar.bz2 otp-eff478611df711b328fd5e349e1c937ea8be4b5b.zip | |
inets: httpd - Fix broken handling of POST requests
New chunk mechanism of body data in POST requests added in
5d01c70ca399edf28e99dc760506329689fab6ba
broke handling of POST body data not using the new mechanism.
Added better regression test
Diffstat (limited to 'lib/inets/test')
| -rw-r--r-- | lib/inets/test/httpd_SUITE.erl | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/lib/inets/test/httpd_SUITE.erl b/lib/inets/test/httpd_SUITE.erl index 6c8728470b..0c649d9abf 100644 --- a/lib/inets/test/httpd_SUITE.erl +++ b/lib/inets/test/httpd_SUITE.erl @@ -129,7 +129,7 @@ groups() -> {http_1_1, [], [host, chunked, expect, cgi, cgi_chunked_encoding_test, trace, range, if_modified_since, mod_esi_chunk_timeout, - esi_put] ++ http_head() ++ http_get() ++ load()}, + esi_put, esi_post] ++ http_head() ++ http_get() ++ load()}, {http_1_0, [], [host, cgi, trace] ++ http_head() ++ http_get() ++ load()}, {http_0_9, [], http_head() ++ http_get() ++ load()} ]. @@ -932,7 +932,20 @@ esi_put() -> esi_put(Config) when is_list(Config) -> ok = http_status("PUT /cgi-bin/erl/httpd_example/put/123342234123 ", Config, [{statuscode, 200}]). - +%%------------------------------------------------------------------------- +esi_post() -> + [{doc, "Test mod_esi POST"}]. + +esi_post(Config) when is_list(Config) -> + Chunk = "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ", + Data = lists:duplicate(10000, Chunk), + Length = lists:flatlength(Data), + ok = http_status("POST /cgi-bin/erl/httpd_example/post ", + {"Content-Length:" ++ integer_to_list(Length) ++ "\r\n", + Data}, + [{http_version, "HTTP/1.1"} |Config], + [{statuscode, 200}]). + %%------------------------------------------------------------------------- mod_esi_chunk_timeout(Config) when is_list(Config) -> ok = httpd_1_1:mod_esi_chunk_timeout(proplists:get_value(type, Config), |