Stage 9

test/admin_handler_user_by_id_tests.erl

@@ -0,0 +1,28 @@
+-module(admin_handler_user_by_id_tests).
+-include_lib("eunit/include/eunit.hrl").
+-include("records.hrl").
+
+setup() ->
+  mnesia:start(),
+  mnesia:create_table(user, [{attributes, record_info(fields, user)}, {ram_copies, [node()]}]),
+  ok.
+
+cleanup(_) ->
+  mnesia:delete_table(user),
+  mnesia:stop(),
+  ok.
+
+admin_user_by_id_test_() ->
+  {foreach,
+    fun setup/0,
+    fun cleanup/1,
+    [
+      {"Convert updates test", fun test_convert_updates/0}
+    ]}.
+
+test_convert_updates() ->
+  Updates = [{<<"status">>, <<"frozen">>}, {<<"role">>, <<"admin">>}, {<<"email">>, <<"test@test.com">>}],
+  Converted = admin_handler_user_by_id:convert_updates(Updates),
+  ?assertEqual({status, frozen}, lists:keyfind(status, 1, Converted)),
+  ?assertEqual({role, admin}, lists:keyfind(role, 1, Converted)),
+  ?assertEqual({<<"email">>, <<"test@test.com">>}, lists:keyfind(<<"email">>, 1, Converted)).