Some unit tests for pluggable password hashing

Author: michaelklishin

test/src/rabbit_tests.erl

@@ -92,6 +92,7 @@ all_tests0() ->
     passed = vm_memory_monitor_tests:all_tests(),
     passed = credit_flow_test:test_credit_flow_settings(),
     passed = on_disk_store_tunable_parameter_validation_test:test_msg_store_parameter_validation(),
+    passed = test_password_hashing(),
     passed.
 
 do_if_secondary_node(Up, Down) ->
@@ -1015,9 +1016,6 @@ test_user_management() ->
     TestTags([administrator]),
     TestTags([]),
 
-    %% hashing functions
-    %% TODO
-
     %% vhost creation
     ok = control_action(add_vhost, ["/testhost"]),
     {error, {vhost_already_exists, _}} =
@@ -1060,6 +1058,19 @@ test_user_management() ->
 
     passed.
 
+test_password_hashing() ->
+    rabbit_password_hashing_sha256 = rabbit_password:hashing_mod(),
+    application:set_env(rabbit, password_hashing_module, rabbit_password_hashing_md5),
+    rabbit_password_hashing_md5    = rabbit_password:hashing_mod(),
+    application:set_env(rabbit, password_hashing_module, rabbit_password_hashing_sha256),
+    rabbit_password_hashing_sha256 = rabbit_password:hashing_mod(),
+
+    rabbit_password_hashing_sha256 = rabbit_password:hashing_mod(rabbit_password_hashing_sha256),
+    rabbit_password_hashing_md5    = rabbit_password:hashing_mod(rabbit_password_hashing_md5),
+    rabbit_password_hashing_md5    = rabbit_password:hashing_mod(undefined),
+
+    passed.
+
 test_runtime_parameters() ->
     rabbit_runtime_parameters_test:register(),
     Good = fun(L) -> ok                = control_action(set_parameter, L) end,