1 files changed, 26 insertions, 0 deletions
diff --git a/deps/rabbitmq_auth_backend_http/test/auth_http_mock.erl b/deps/rabbitmq_auth_backend_http/test/auth_http_mock.erl
new file mode 100644
index 0000000000..2da978d63d
--- /dev/null
+++ b/deps/rabbitmq_auth_backend_http/test/auth_http_mock.erl
@@ -0,0 +1,26 @@
+-module(auth_http_mock).
+
+-export([init/2]).
+
+%%% CALLBACKS
+
+init(Req = #{method := <<"GET">>}, Users) ->
+    QsVals = cowboy_req:parse_qs(Req),
+    Reply = authenticate(proplists:get_value(<<"username">>, QsVals),
+                         proplists:get_value(<<"password">>, QsVals),
+                         Users),
+    Req2 = cowboy_req:reply(200, #{<<"content-type">> => <<"text/plain">>}, Reply, Req),
+    {ok, Req2, Users}.
+
+%%% HELPERS
+
+authenticate(Username, Password, Users) ->
+   case maps:get(Username, Users, undefined) of
+       {MatchingPassword, Tags} when Password =:= MatchingPassword ->
+           StringTags = lists:map(fun(T) -> io_lib:format("~s", [T]) end, Tags),
+           <<"allow ", (list_to_binary(string:join(StringTags, " ")))/binary>>;
+        {_OtherPassword, _} ->
+            <<"deny">>;
+        undefined ->
+            <<"deny">>
+   end.
+\ No newline at end of file