1 files changed, 82 insertions, 0 deletions
diff --git a/deps/rabbitmq_cli/test/ctl/set_global_parameter_command_test.exs b/deps/rabbitmq_cli/test/ctl/set_global_parameter_command_test.exs
new file mode 100644
index 0000000000..848f29a0b8
--- /dev/null
+++ b/deps/rabbitmq_cli/test/ctl/set_global_parameter_command_test.exs
@@ -0,0 +1,82 @@
+## This Source Code Form is subject to the terms of the Mozilla Public
+## License, v. 2.0. If a copy of the MPL was not distributed with this
+## file, You can obtain one at https://mozilla.org/MPL/2.0/.
+##
+## Copyright (c) 2007-2020 VMware, Inc. or its affiliates.  All rights reserved.
+
+
+defmodule SetGlobalParameterCommandTest do
+  use ExUnit.Case, async: false
+  import TestHelper
+
+  @command RabbitMQ.CLI.Ctl.Commands.SetGlobalParameterCommand
+
+  @key :mqtt_default_vhosts
+  @value "{\"O=client,CN=dummy\":\"somevhost\"}"
+
+  setup_all do
+    RabbitMQ.CLI.Core.Distribution.start()
+
+    :ok
+  end
+
+  setup context do
+    on_exit(context, fn ->
+      clear_global_parameter context[:key]
+    end)
+
+    {
+      :ok,
+      opts: %{
+        node: get_rabbit_hostname(),
+      }
+    }
+  end
+
+  test "validate: expects a key and a value" do
+    assert @command.validate([], %{}) == {:validation_failure, :not_enough_args}
+    assert @command.validate(["insufficient"], %{}) == {:validation_failure, :not_enough_args}
+    assert @command.validate(["this is", "too", "many"], %{}) == {:validation_failure, :too_many_args}
+  end
+
+  @tag key: @key, value: @value
+  test "run: expects a key and a value", context do
+    assert @command.run(
+      [context[:key], context[:value]],
+      context[:opts]
+    ) == :ok
+
+    assert_parameter_fields(context)
+  end
+
+  test "run: throws a badrpc when instructed to contact an unreachable RabbitMQ node" do
+    opts = %{node: :jake@thedog, timeout: 200}
+
+    assert match?({:badrpc, _}, @command.run([@key, @value], opts))
+  end
+
+  @tag key: @key, value: "bad-value"
+  test "run: a value that fails to parse as JSON returns a decoding error", context do
+    initial = list_global_parameters()
+    assert match?({:error_string, _},
+      @command.run([context[:key], context[:value]],
+        context[:opts]))
+
+    assert list_global_parameters() == initial
+  end
+
+  @tag key: @key, value: @value
+  test "banner", context do
+    assert @command.banner([context[:key], context[:value]], context[:opts])
+      =~ ~r/Setting global runtime parameter \"#{context[:key]}\" to \"#{context[:value]}\" \.\.\./
+  end
+
+  # Checks each element of the first parameter against the expected context values
+  defp assert_parameter_fields(context) do
+    result_param = list_global_parameters() |> List.first
+
+    assert result_param[:value] == context[:value]
+    assert result_param[:name] == context[:key]
+  end
+
+end