From 2c0dabc1ea0330c765e7621483e7a96d751db0aa Mon Sep 17 00:00:00 2001
From: James Wheare <james@wheare.org>
Date: Fri, 14 Jun 2013 17:45:36 +0100
Subject: httpc: Allow content body in DELETE requests

---
 lib/inets/test/httpc_proxy_SUITE.erl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'lib/inets/test/httpc_proxy_SUITE.erl')

diff --git a/lib/inets/test/httpc_proxy_SUITE.erl b/lib/inets/test/httpc_proxy_SUITE.erl
index 2475489bb3..ef277f2b01 100644
--- a/lib/inets/test/httpc_proxy_SUITE.erl
+++ b/lib/inets/test/httpc_proxy_SUITE.erl
@@ -69,6 +69,7 @@ local_proxy_cases() ->
      http_post,
      http_put,
      http_delete,
+     http_delete_body,
      http_headers,
      http_proxy_auth,
      http_doesnotexist,
@@ -262,6 +263,22 @@ http_delete(Config) when is_list(Config) ->
 
 %%--------------------------------------------------------------------
 
+http_delete_body(doc) ->
+    ["Perform a DELETE request with a content body. The server will not allow it "
+     "but we only test sending the request."];
+http_delete_body(Config) when is_list(Config) ->
+    Method = delete,
+    URL = url("/delete.html", Config),
+    Content = "foo=bar",
+    Request = {URL,[],"application/x-www-form-urlencoded",Content},
+    HttpOpts = [],
+    Opts = [],
+    {ok,{{_,405,_},[_|_],[_|_]}} =
+    httpc:request(Method, Request, HttpOpts, Opts),
+    ok.
+
+%%--------------------------------------------------------------------
+
 http_headers(doc) ->
     ["Use as many request headers as possible"];
 http_headers(Config) when is_list(Config) ->
-- 
cgit v1.2.3