summaryrefslogtreecommitdiff
path: root/src/rabbit_tests.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/rabbit_tests.erl')
-rw-r--r--src/rabbit_tests.erl29
1 files changed, 29 insertions, 0 deletions
diff --git a/src/rabbit_tests.erl b/src/rabbit_tests.erl
index 09e2cfe4..ada469aa 100644
--- a/src/rabbit_tests.erl
+++ b/src/rabbit_tests.erl
@@ -45,6 +45,7 @@ all_tests() ->
passed = test_log_management_during_startup(),
passed = test_cluster_management(),
passed = test_user_management(),
+ passed = test_server_status(),
passed.
test_parsing() ->
@@ -462,6 +463,34 @@ test_user_management() ->
passed.
+test_server_status() ->
+
+ % list queues
+ ok = control_action(list_queues, []),
+ ok = control_action(list_queues, ["name", "durable", "auto_delete",
+ "arguments", "pid", "messages_ready", "messages_unacknowledged",
+ "messages_uncommitted", "messages", "acks_uncommitted", "consumers",
+ "transactions", "memory"]),
+
+ % list exchanges
+ ok = control_action(list_exchanges, []),
+ ok = control_action(list_exchanges, ["name", "type", "durable", "auto_delete",
+ "arguments"]),
+
+ % list bindings
+ ok = control_action(list_bindings, []),
+
+ % list connections
+ ok = control_action(list_connections, []),
+ ok = control_action(list_connections, ["pid", "address", "port", "peer_address",
+ "peer_port", "state", "channels", "user", "vhost", "timeout",
+ "frame_max", "recv_oct", "recv_cnt", "send_oct", "send_cnt",
+ "send_pend passed"]),
+
+ passed.
+
+%---------------------------------------------------------------------
+
%---------------------------------------------------------------------
control_action(Command, Args) -> control_action(Command, node(), Args).