2121
2222-compile (export_all ).
2323
24+ -import (rabbit_ct_broker_helpers , [enable_dist_proxy_manager /1 ,
25+ enable_dist_proxy /1 ,
26+ enable_dist_proxy_on_node /3 ]).
27+
2428% % We set ticktime to 1s and setuptime is 7s so to make sure it
2529% % passes...
2630-define (DELAY , 8000 ).
@@ -69,7 +73,7 @@ groups() ->
6973init_per_suite (Config ) ->
7074 rabbit_ct_helpers :log_environment (),
7175 rabbit_ct_helpers :run_setup_steps (Config , [
72- fun enable_dist_proxy_manager /1
76+ fun rabbit_ct_broker_helpers : enable_dist_proxy_manager /1
7377 ]).
7478
7579end_per_suite (Config ) ->
@@ -99,7 +103,7 @@ init_per_testcase(Testcase, Config) ->
99103 rabbit_ct_helpers :run_steps (Config1 ,
100104 rabbit_ct_broker_helpers :setup_steps () ++
101105 rabbit_ct_client_helpers :setup_steps () ++ [
102- fun enable_dist_proxy /1 ,
106+ fun rabbit_ct_broker_helpers : enable_dist_proxy /1 ,
103107 fun rabbit_ct_broker_helpers :cluster_nodes /1
104108 ]).
105109
@@ -109,31 +113,6 @@ end_per_testcase(Testcase, Config) ->
109113 rabbit_ct_broker_helpers :teardown_steps ()),
110114 rabbit_ct_helpers :testcase_finished (Config1 , Testcase ).
111115
112- enable_dist_proxy_manager (Config ) ->
113- inet_tcp_proxy_manager :start (),
114- rabbit_ct_helpers :set_config (Config ,
115- {erlang_dist_module , inet_proxy_dist }).
116-
117- enable_dist_proxy (Config ) ->
118- NodeConfigs = rabbit_ct_broker_helpers :get_node_configs (Config ),
119- Nodes = [? config (nodename , NodeConfig ) || NodeConfig <- NodeConfigs ],
120- ManagerNode = node (),
121- ok = lists :foreach (
122- fun (NodeConfig ) ->
123- ok = rabbit_ct_broker_helpers :rpc (Config ,
124- ? config (nodename , NodeConfig ),
125- ? MODULE , enable_dist_proxy_on_node ,
126- [NodeConfig , ManagerNode , Nodes ])
127- end , NodeConfigs ),
128- Config .
129-
130- enable_dist_proxy_on_node (NodeConfig , ManagerNode , Nodes ) ->
131- Nodename = ? config (nodename , NodeConfig ),
132- DistPort = ? config (tcp_port_erlang_dist , NodeConfig ),
133- ProxyPort = ? config (tcp_port_erlang_dist_proxy , NodeConfig ),
134- ok = inet_tcp_proxy :start (ManagerNode , DistPort , ProxyPort ),
135- ok = inet_tcp_proxy :reconnect (Nodes -- [Nodename ]).
136-
137116% % -------------------------------------------------------------------
138117% % Testcases.
139118% % -------------------------------------------------------------------
0 commit comments