Add cow_http_hd:allow/1

src/cow_http_hd.erl

@@ -40,6 +40,7 @@
 -export([parse_access_control_request_method/1]).
 -export([parse_age/1]).
 -export([parse_allow/1]).
+-export([allow/1]).
 % @todo -export([parse_alternates/1]). RFC2295
 % @todo -export([parse_authentication_info/1]). RFC2617
 -export([parse_authorization/1]).
@@ -1018,6 +1019,22 @@ horse_parse_allow() ->
 	).
 -endif.
 
+-spec allow([binary()]) -> binary().
+allow([]) ->
+	<<>>;
+allow(Methods) ->
+	<< ", ", Allow/binary >> = << << ", ", M/binary >> || M <- Methods >>,
+	Allow.
+
+-ifdef(TEST).
+allow_test_() ->
+	Tests = [
+		{[], <<>>},
+		{[<<"GET">>, <<"HEAD">>, <<"PUT">>], <<"GET, HEAD, PUT">>}
+	],
+	[{R, fun() -> R = allow(V) end} || {V, R} <- Tests].
+-endif.
+
 %% Authorization header.
 %%
 %% We support Basic, Digest and Bearer schemes only.