From 4fde6cba94f4ae65b6434aa722c08c60066f67d7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Fri, 31 May 2013 18:31:28 +0200
Subject: In content-types, the charset parameter is converted to lowercase

We know this specific parameter is case insensitive so we
automatically lowercase it to make things simpler to the
developer.
---
 test/http_SUITE_data/rest_post_charset_resource.erl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 test/http_SUITE_data/rest_post_charset_resource.erl

(limited to 'test/http_SUITE_data')

diff --git a/test/http_SUITE_data/rest_post_charset_resource.erl b/test/http_SUITE_data/rest_post_charset_resource.erl
new file mode 100644
index 0000000..9ccfa61
--- /dev/null
+++ b/test/http_SUITE_data/rest_post_charset_resource.erl
@@ -0,0 +1,15 @@
+-module(rest_post_charset_resource).
+-export([init/3, allowed_methods/2, content_types_accepted/2, from_text/2]).
+
+init(_Transport, _Req, _Opts) ->
+	{upgrade, protocol, cowboy_rest}.
+
+allowed_methods(Req, State) ->
+	{[<<"POST">>], Req, State}.
+
+content_types_accepted(Req, State) ->
+	{[{{<<"text">>, <<"plain">>, [{<<"charset">>, <<"utf-8">>}]},
+		from_text}], Req, State}.
+
+from_text(Req, State) ->
+	{true, Req, State}.
-- 
cgit v1.2.3