syn_registry_SUITE.erl 62 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251
  1. %% ==========================================================================================================
  2. %% Syn - A global Process Registry and Process Group manager.
  3. %%
  4. %% The MIT License (MIT)
  5. %%
  6. %% Copyright (c) 2015-2021 Roberto Ostinelli <roberto@ostinelli.net> and Neato Robotics, Inc.
  7. %%
  8. %% Permission is hereby granted, free of charge, to any person obtaining a copy
  9. %% of this software and associated documentation files (the "Software"), to deal
  10. %% in the Software without restriction, including without limitation the rights
  11. %% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  12. %% copies of the Software, and to permit persons to whom the Software is
  13. %% furnished to do so, subject to the following conditions:
  14. %%
  15. %% The above copyright notice and this permission notice shall be included in
  16. %% all copies or substantial portions of the Software.
  17. %%
  18. %% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  19. %% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  20. %% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  21. %% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  22. %% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  23. %% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  24. %% THE SOFTWARE.
  25. %% ==========================================================================================================
  26. -module(syn_registry_SUITE).
  27. %% callbacks
  28. -export([all/0]).
  29. -export([init_per_suite/1, end_per_suite/1]).
  30. -export([groups/0, init_per_group/2, end_per_group/2]).
  31. -export([init_per_testcase/2, end_per_testcase/2]).
  32. %% tests
  33. -export([
  34. one_node_via_register_unregister/1
  35. ]).
  36. -export([
  37. three_nodes_discover_default_scope/1,
  38. three_nodes_discover_custom_scope/1,
  39. three_nodes_register_unregister_and_monitor_default_scope/1,
  40. three_nodes_register_unregister_and_monitor_custom_scope/1,
  41. three_nodes_cluster_changes/1,
  42. three_nodes_cluster_conflicts/1,
  43. three_nodes_custom_event_handler_reg_unreg/1
  44. ]).
  45. %% include
  46. -include_lib("common_test/include/ct.hrl").
  47. -include_lib("syn/src/syn.hrl").
  48. %% ===================================================================
  49. %% Callbacks
  50. %% ===================================================================
  51. %% -------------------------------------------------------------------
  52. %% Function: all() -> GroupsAndTestCases | {skip,Reason}
  53. %% GroupsAndTestCases = [{group,GroupName} | TestCase]
  54. %% GroupName = atom()
  55. %% TestCase = atom()
  56. %% Reason = any()
  57. %% -------------------------------------------------------------------
  58. all() ->
  59. [
  60. {group, one_process_registration},
  61. {group, three_nodes_process_registration}
  62. ].
  63. %% -------------------------------------------------------------------
  64. %% Function: groups() -> [Group]
  65. %% Group = {GroupName,Properties,GroupsAndTestCases}
  66. %% GroupName = atom()
  67. %% Properties = [parallel | sequence | Shuffle | {RepeatType,N}]
  68. %% GroupsAndTestCases = [Group | {group,GroupName} | TestCase]
  69. %% TestCase = atom()
  70. %% Shuffle = shuffle | {shuffle,{integer(),integer(),integer()}}
  71. %% RepeatType = repeat | repeat_until_all_ok | repeat_until_all_fail |
  72. %% repeat_until_any_ok | repeat_until_any_fail
  73. %% N = integer() | forever
  74. %% -------------------------------------------------------------------
  75. groups() ->
  76. [
  77. {one_process_registration, [shuffle], [
  78. one_node_via_register_unregister
  79. ]},
  80. {three_nodes_process_registration, [shuffle], [
  81. three_nodes_discover_default_scope,
  82. three_nodes_discover_custom_scope,
  83. three_nodes_register_unregister_and_monitor_default_scope,
  84. three_nodes_register_unregister_and_monitor_custom_scope,
  85. three_nodes_cluster_changes,
  86. three_nodes_cluster_conflicts,
  87. three_nodes_custom_event_handler_reg_unreg
  88. ]}
  89. ].
  90. %% -------------------------------------------------------------------
  91. %% Function: init_per_suite(Config0) ->
  92. %% Config1 | {skip,Reason} |
  93. %% {skip_and_save,Reason,Config1}
  94. %% Config0 = Config1 = [tuple()]
  95. %% Reason = any()
  96. %% -------------------------------------------------------------------
  97. init_per_suite(Config) ->
  98. Config.
  99. %% -------------------------------------------------------------------
  100. %% Function: end_per_suite(Config0) -> void() | {save_config,Config1}
  101. %% Config0 = Config1 = [tuple()]
  102. %% -------------------------------------------------------------------
  103. end_per_suite(_Config) ->
  104. ok.
  105. %% -------------------------------------------------------------------
  106. %% Function: init_per_group(GroupName, Config0) ->
  107. %% Config1 | {skip,Reason} |
  108. %% {skip_and_save,Reason,Config1}
  109. %% GroupName = atom()
  110. %% Config0 = Config1 = [tuple()]
  111. %% Reason = any()
  112. %% -------------------------------------------------------------------
  113. init_per_group(three_nodes_process_registration, Config) ->
  114. %% start slave
  115. {ok, SlaveNode1} = syn_test_suite_helper:start_slave(syn_slave_1),
  116. {ok, SlaveNode2} = syn_test_suite_helper:start_slave(syn_slave_2),
  117. syn_test_suite_helper:connect_node(SlaveNode1),
  118. syn_test_suite_helper:connect_node(SlaveNode2),
  119. rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
  120. %% wait full cluster
  121. case syn_test_suite_helper:wait_cluster_mesh_connected([node(), SlaveNode1, SlaveNode2]) of
  122. ok ->
  123. %% config
  124. [{slave_node_1, SlaveNode1}, {slave_node_2, SlaveNode2} | Config];
  125. Other ->
  126. ct:pal("*********** Could not get full cluster, skipping"),
  127. end_per_group(three_nodes_process_registration, Config),
  128. {skip, Other}
  129. end;
  130. init_per_group(_GroupName, Config) ->
  131. Config.
  132. %% -------------------------------------------------------------------
  133. %% Function: end_per_group(GroupName, Config0) ->
  134. %% void() | {save_config,Config1}
  135. %% GroupName = atom()
  136. %% Config0 = Config1 = [tuple()]
  137. %% -------------------------------------------------------------------
  138. end_per_group(three_nodes_process_registration, Config) ->
  139. SlaveNode1 = proplists:get_value(slave_node_1, Config),
  140. syn_test_suite_helper:connect_node(SlaveNode1),
  141. SlaveNode2 = proplists:get_value(slave_node_2, Config),
  142. syn_test_suite_helper:connect_node(SlaveNode2),
  143. syn_test_suite_helper:clean_after_test(),
  144. syn_test_suite_helper:stop_slave(syn_slave_1),
  145. syn_test_suite_helper:stop_slave(syn_slave_2),
  146. timer:sleep(1000);
  147. end_per_group(_GroupName, _Config) ->
  148. syn_test_suite_helper:clean_after_test().
  149. %% -------------------------------------------------------------------
  150. %% Function: init_per_testcase(TestCase, Config0) ->
  151. %% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1}
  152. %% TestCase = atom()
  153. %% Config0 = Config1 = [tuple()]
  154. %% Reason = any()
  155. %% -------------------------------------------------------------------
  156. init_per_testcase(TestCase, Config) ->
  157. ct:pal("Starting test: ~p", [TestCase]),
  158. Config.
  159. %% -------------------------------------------------------------------
  160. %% Function: end_per_testcase(TestCase, Config0) ->
  161. %% void() | {save_config,Config1} | {fail,Reason}
  162. %% TestCase = atom()
  163. %% Config0 = Config1 = [tuple()]
  164. %% Reason = any()
  165. %% -------------------------------------------------------------------
  166. end_per_testcase(_, _Config) ->
  167. syn_test_suite_helper:clean_after_test().
  168. %% ===================================================================
  169. %% Tests
  170. %% ===================================================================
  171. one_node_via_register_unregister(_Config) ->
  172. %% start syn
  173. ok = syn:start(),
  174. %% start gen server via syn
  175. {ok, Pid} = syn_test_gen_server:start_link(),
  176. %% retrieve
  177. {Pid, undefined} = syn:lookup(syn_test_gen_server),
  178. %% call
  179. pong = syn_test_gen_server:ping(),
  180. %% send via syn
  181. syn:send(syn_test_gen_server, {self(), send_ping}),
  182. syn_test_suite_helper:assert_received_messages([
  183. reply_pong
  184. ]),
  185. %% stop server
  186. syn_test_gen_server:stop(),
  187. %% retrieve
  188. syn_test_suite_helper:assert_wait(
  189. undefined,
  190. fun() -> syn:lookup(syn_test_gen_server) end
  191. ),
  192. %% send via syn
  193. {badarg, {syn_test_gen_server, anything}} = catch syn:send(syn_test_gen_server, anything).
  194. three_nodes_discover_default_scope(Config) ->
  195. %% get slaves
  196. SlaveNode1 = proplists:get_value(slave_node_1, Config),
  197. SlaveNode2 = proplists:get_value(slave_node_2, Config),
  198. %% start syn on nodes
  199. ok = syn:start(),
  200. ok = rpc:call(SlaveNode1, syn, start, []),
  201. ok = rpc:call(SlaveNode2, syn, start, []),
  202. %% check
  203. syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
  204. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
  205. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]),
  206. %% simulate full netsplit
  207. rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
  208. syn_test_suite_helper:disconnect_node(SlaveNode1),
  209. syn_test_suite_helper:disconnect_node(SlaveNode2),
  210. syn_test_suite_helper:assert_cluster(node(), []),
  211. %% check
  212. syn_test_suite_helper:assert_scope_subcluster(node(), default, []),
  213. %% reconnect slave 1
  214. syn_test_suite_helper:connect_node(SlaveNode1),
  215. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1]),
  216. syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
  217. %% check
  218. syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1]),
  219. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node()]),
  220. %% reconnect all
  221. syn_test_suite_helper:connect_node(SlaveNode2),
  222. rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
  223. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  224. syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
  225. syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
  226. %% check
  227. syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
  228. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
  229. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]),
  230. %% simulate full netsplit, again
  231. rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
  232. syn_test_suite_helper:disconnect_node(SlaveNode1),
  233. syn_test_suite_helper:disconnect_node(SlaveNode2),
  234. syn_test_suite_helper:assert_cluster(node(), []),
  235. %% check
  236. syn_test_suite_helper:assert_scope_subcluster(node(), default, []),
  237. %% reconnect all, again
  238. syn_test_suite_helper:connect_node(SlaveNode2),
  239. rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
  240. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  241. syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
  242. syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
  243. %% check
  244. syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
  245. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
  246. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]),
  247. %% crash the scope process on local
  248. syn_test_suite_helper:kill_process(syn_registry_default),
  249. syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
  250. %% check, it should have rebuilt after supervisor restarts it
  251. syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
  252. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
  253. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]),
  254. %% crash scopes supervisor on local
  255. syn_test_suite_helper:kill_process(syn_scopes_sup),
  256. syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
  257. %% check
  258. syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
  259. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
  260. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]).
  261. three_nodes_discover_custom_scope(Config) ->
  262. %% get slaves
  263. SlaveNode1 = proplists:get_value(slave_node_1, Config),
  264. SlaveNode2 = proplists:get_value(slave_node_2, Config),
  265. %% start syn on nodes
  266. ok = syn:start(),
  267. ok = rpc:call(SlaveNode1, syn, start, []),
  268. ok = rpc:call(SlaveNode2, syn, start, []),
  269. %% add custom scopes
  270. ok = syn:add_node_to_scope(custom_scope_ab),
  271. ok = syn:add_node_to_scope(custom_scope_all),
  272. ok = rpc:call(SlaveNode1, syn, add_node_to_scopes, [[custom_scope_ab, custom_scope_bc, custom_scope_all]]),
  273. ok = rpc:call(SlaveNode2, syn, add_node_to_scopes, [[custom_scope_bc, custom_scope_c, custom_scope_all]]),
  274. %% check
  275. syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_ab, [SlaveNode1]),
  276. syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_all, [SlaveNode1, SlaveNode2]),
  277. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_ab, [node()]),
  278. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_bc, [SlaveNode2]),
  279. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_all, [node(), SlaveNode2]),
  280. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_bc, [SlaveNode1]),
  281. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_c, []),
  282. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_all, [node(), SlaveNode1]),
  283. %% check default
  284. syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
  285. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
  286. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]),
  287. %% disconnect node 2 (node 1 can still see node 2)
  288. syn_test_suite_helper:disconnect_node(SlaveNode2),
  289. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1]),
  290. syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
  291. %% check
  292. syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_ab, [SlaveNode1]),
  293. syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_all, [SlaveNode1]),
  294. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_ab, [node()]),
  295. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_bc, [SlaveNode2]),
  296. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_all, [node(), SlaveNode2]),
  297. %% reconnect node 2
  298. syn_test_suite_helper:connect_node(SlaveNode2),
  299. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  300. syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
  301. syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
  302. %% check
  303. syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_ab, [SlaveNode1]),
  304. syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_all, [SlaveNode1, SlaveNode2]),
  305. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_ab, [node()]),
  306. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_bc, [SlaveNode2]),
  307. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_all, [node(), SlaveNode2]),
  308. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_bc, [SlaveNode1]),
  309. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_c, []),
  310. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_all, [node(), SlaveNode1]),
  311. %% crash a scope process on 2
  312. rpc:call(SlaveNode2, syn_test_suite_helper, kill_process, [syn_registry_custom_scope_bc]),
  313. rpc:call(SlaveNode2, syn_test_suite_helper, wait_process_name_ready, [syn_registry_default]),
  314. %% check
  315. syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_ab, [SlaveNode1]),
  316. syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_all, [SlaveNode1, SlaveNode2]),
  317. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_ab, [node()]),
  318. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_bc, [SlaveNode2]),
  319. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_all, [node(), SlaveNode2]),
  320. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_bc, [SlaveNode1]),
  321. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_c, []),
  322. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_all, [node(), SlaveNode1]),
  323. %% crash scopes supervisor on local
  324. syn_test_suite_helper:kill_process(syn_scopes_sup),
  325. syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
  326. %% check
  327. syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_ab, [SlaveNode1]),
  328. syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_all, [SlaveNode1, SlaveNode2]),
  329. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_ab, [node()]),
  330. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_bc, [SlaveNode2]),
  331. syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_all, [node(), SlaveNode2]),
  332. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_bc, [SlaveNode1]),
  333. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_c, []),
  334. syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_all, [node(), SlaveNode1]).
  335. three_nodes_register_unregister_and_monitor_default_scope(Config) ->
  336. %% get slaves
  337. SlaveNode1 = proplists:get_value(slave_node_1, Config),
  338. SlaveNode2 = proplists:get_value(slave_node_2, Config),
  339. %% start syn on nodes
  340. ok = syn:start(),
  341. ok = rpc:call(SlaveNode1, syn, start, []),
  342. ok = rpc:call(SlaveNode2, syn, start, []),
  343. %% start processes
  344. Pid = syn_test_suite_helper:start_process(),
  345. PidWithMeta = syn_test_suite_helper:start_process(),
  346. PidRemoteOn1 = syn_test_suite_helper:start_process(SlaveNode1),
  347. %% retrieve
  348. undefined = syn:lookup(<<"my proc">>),
  349. undefined = rpc:call(SlaveNode1, syn, lookup, [<<"my proc">>]),
  350. undefined = rpc:call(SlaveNode2, syn, lookup, [<<"my proc">>]),
  351. undefined = syn:lookup({"my proc alias"}),
  352. undefined = rpc:call(SlaveNode1, syn, lookup, [{"my proc alias"}]),
  353. undefined = rpc:call(SlaveNode2, syn, lookup, [{"my proc alias"}]),
  354. undefined = syn:lookup(<<"my proc with meta">>),
  355. undefined = rpc:call(SlaveNode1, syn, lookup, [<<"my proc with meta">>]),
  356. undefined = rpc:call(SlaveNode2, syn, lookup, [<<"my proc with meta">>]),
  357. undefined = syn:lookup({remote_pid_on, slave_1}),
  358. undefined = rpc:call(SlaveNode1, syn, lookup, [{remote_pid_on, slave_1}]),
  359. undefined = rpc:call(SlaveNode2, syn, lookup, [{remote_pid_on, slave_1}]),
  360. 0 = syn:registry_count(default),
  361. 0 = syn:registry_count(default, node()),
  362. 0 = syn:registry_count(default, SlaveNode1),
  363. 0 = syn:registry_count(default, SlaveNode2),
  364. %% register
  365. ok = syn:register(<<"my proc">>, Pid),
  366. ok = syn:register({"my proc alias"}, Pid), %% same pid, different name
  367. ok = syn:register(<<"my proc with meta">>, PidWithMeta, {meta, <<"meta">>}), %% pid with meta
  368. ok = syn:register({remote_pid_on, slave_1}, PidRemoteOn1), %% remote on slave 1
  369. %% errors
  370. {error, taken} = syn:register(<<"my proc">>, PidRemoteOn1),
  371. {error, not_alive} = syn:register({"pid not alive"}, list_to_pid("<0.9999.0>")),
  372. %% retrieve
  373. syn_test_suite_helper:assert_wait(
  374. {Pid, undefined},
  375. fun() -> syn:lookup(<<"my proc">>) end
  376. ),
  377. syn_test_suite_helper:assert_wait(
  378. {Pid, undefined},
  379. fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc">>]) end
  380. ),
  381. syn_test_suite_helper:assert_wait(
  382. {Pid, undefined},
  383. fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc">>]) end
  384. ),
  385. syn_test_suite_helper:assert_wait(
  386. {Pid, undefined},
  387. fun() -> syn:lookup({"my proc alias"}) end
  388. ),
  389. syn_test_suite_helper:assert_wait(
  390. {Pid, undefined},
  391. fun() -> rpc:call(SlaveNode1, syn, lookup, [{"my proc alias"}]) end
  392. ),
  393. syn_test_suite_helper:assert_wait(
  394. {Pid, undefined},
  395. fun() -> rpc:call(SlaveNode2, syn, lookup, [{"my proc alias"}]) end
  396. ),
  397. syn_test_suite_helper:assert_wait(
  398. {PidWithMeta, {meta, <<"meta">>}},
  399. fun() -> syn:lookup(<<"my proc with meta">>) end
  400. ),
  401. syn_test_suite_helper:assert_wait(
  402. {PidWithMeta, {meta, <<"meta">>}},
  403. fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc with meta">>]) end
  404. ),
  405. syn_test_suite_helper:assert_wait(
  406. {PidWithMeta, {meta, <<"meta">>}},
  407. fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc with meta">>]) end
  408. ),
  409. syn_test_suite_helper:assert_wait(
  410. {PidRemoteOn1, undefined},
  411. fun() -> syn:lookup({remote_pid_on, slave_1}) end
  412. ),
  413. syn_test_suite_helper:assert_wait(
  414. {PidRemoteOn1, undefined},
  415. fun() -> rpc:call(SlaveNode1, syn, lookup, [{remote_pid_on, slave_1}]) end
  416. ),
  417. syn_test_suite_helper:assert_wait(
  418. {PidRemoteOn1, undefined},
  419. fun() -> rpc:call(SlaveNode2, syn, lookup, [{remote_pid_on, slave_1}]) end
  420. ),
  421. 4 = syn:registry_count(default),
  422. 3 = syn:registry_count(default, node()),
  423. 1 = syn:registry_count(default, SlaveNode1),
  424. 0 = syn:registry_count(default, SlaveNode2),
  425. %% re-register to edit meta
  426. ok = syn:register(<<"my proc with meta">>, PidWithMeta, {meta2, <<"meta2">>}),
  427. ok = rpc:call(SlaveNode2, syn, register, [{remote_pid_on, slave_1}, PidRemoteOn1, added_meta]), %% updated on slave 2
  428. %% retrieve
  429. syn_test_suite_helper:assert_wait(
  430. {PidWithMeta, {meta2, <<"meta2">>}},
  431. fun() -> syn:lookup(<<"my proc with meta">>) end
  432. ),
  433. syn_test_suite_helper:assert_wait(
  434. {PidWithMeta, {meta2, <<"meta2">>}},
  435. fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc with meta">>]) end
  436. ),
  437. syn_test_suite_helper:assert_wait(
  438. {PidWithMeta, {meta2, <<"meta2">>}},
  439. fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc with meta">>]) end
  440. ),
  441. syn_test_suite_helper:assert_wait(
  442. {PidRemoteOn1, added_meta},
  443. fun() -> syn:lookup({remote_pid_on, slave_1}) end
  444. ),
  445. syn_test_suite_helper:assert_wait(
  446. {PidRemoteOn1, added_meta},
  447. fun() -> rpc:call(SlaveNode1, syn, lookup, [{remote_pid_on, slave_1}]) end
  448. ),
  449. syn_test_suite_helper:assert_wait(
  450. {PidRemoteOn1, added_meta},
  451. fun() -> rpc:call(SlaveNode2, syn, lookup, [{remote_pid_on, slave_1}]) end
  452. ),
  453. 4 = syn:registry_count(default),
  454. 3 = syn:registry_count(default, node()),
  455. 1 = syn:registry_count(default, SlaveNode1),
  456. 0 = syn:registry_count(default, SlaveNode2),
  457. %% crash scope process to ensure that monitors get recreated
  458. exit(whereis(syn_registry_default), kill),
  459. syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
  460. %% kill process
  461. syn_test_suite_helper:kill_process(Pid),
  462. syn_test_suite_helper:kill_process(PidRemoteOn1),
  463. %% unregister process
  464. ok = syn:unregister(<<"my proc with meta">>),
  465. %% retrieve
  466. syn_test_suite_helper:assert_wait(
  467. undefined,
  468. fun() -> syn:lookup(<<"my proc">>) end
  469. ),
  470. syn_test_suite_helper:assert_wait(
  471. undefined,
  472. fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc">>]) end
  473. ),
  474. syn_test_suite_helper:assert_wait(
  475. undefined,
  476. fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc">>]) end
  477. ),
  478. syn_test_suite_helper:assert_wait(
  479. undefined,
  480. fun() -> syn:lookup({"my proc alias"}) end
  481. ),
  482. syn_test_suite_helper:assert_wait(
  483. undefined,
  484. fun() -> rpc:call(SlaveNode1, syn, lookup, [{"my proc alias"}]) end
  485. ),
  486. syn_test_suite_helper:assert_wait(
  487. undefined,
  488. fun() -> rpc:call(SlaveNode2, syn, lookup, [{"my proc alias"}]) end
  489. ),
  490. syn_test_suite_helper:assert_wait(
  491. undefined,
  492. fun() -> syn:lookup(<<"my proc with meta">>) end
  493. ),
  494. syn_test_suite_helper:assert_wait(
  495. undefined,
  496. fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc with meta">>]) end
  497. ),
  498. syn_test_suite_helper:assert_wait(
  499. undefined,
  500. fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc with meta">>]) end
  501. ),
  502. syn_test_suite_helper:assert_wait(
  503. undefined,
  504. fun() -> syn:lookup({remote_pid_on, slave_1}) end
  505. ),
  506. syn_test_suite_helper:assert_wait(
  507. undefined,
  508. fun() -> rpc:call(SlaveNode1, syn, lookup, [{remote_pid_on, slave_1}]) end
  509. ),
  510. syn_test_suite_helper:assert_wait(
  511. undefined,
  512. fun() -> rpc:call(SlaveNode2, syn, lookup, [{remote_pid_on, slave_1}]) end
  513. ),
  514. 0 = syn:registry_count(default),
  515. 0 = syn:registry_count(default, node()),
  516. 0 = syn:registry_count(default, SlaveNode1),
  517. 0 = syn:registry_count(default, SlaveNode2),
  518. %% errors
  519. {error, undefined} = syn:unregister({invalid_name}),
  520. %% (simulate race condition)
  521. Pid1 = syn_test_suite_helper:start_process(),
  522. Pid2 = syn_test_suite_helper:start_process(),
  523. ok = syn:register(<<"my proc">>, Pid1),
  524. syn_test_suite_helper:assert_wait(
  525. {Pid1, undefined},
  526. fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc">>]) end
  527. ),
  528. syn_registry:remove_from_local_table(default, <<"my proc">>, Pid1),
  529. syn_registry:add_to_local_table(default, <<"my proc">>, Pid2, undefined, 0, undefined),
  530. {error, race_condition} = rpc:call(SlaveNode1, syn, unregister, [<<"my proc">>]).
  531. three_nodes_register_unregister_and_monitor_custom_scope(Config) ->
  532. %% get slaves
  533. SlaveNode1 = proplists:get_value(slave_node_1, Config),
  534. SlaveNode2 = proplists:get_value(slave_node_2, Config),
  535. %% start syn on nodes
  536. ok = syn:start(),
  537. ok = rpc:call(SlaveNode1, syn, start, []),
  538. ok = rpc:call(SlaveNode2, syn, start, []),
  539. %% add custom scopes
  540. ok = syn:add_node_to_scope(custom_scope_ab),
  541. ok = rpc:call(SlaveNode1, syn, add_node_to_scopes, [[custom_scope_ab, custom_scope_bc]]),
  542. ok = rpc:call(SlaveNode2, syn, add_node_to_scopes, [[custom_scope_bc]]),
  543. %% start processes
  544. Pid = syn_test_suite_helper:start_process(),
  545. PidWithMeta = syn_test_suite_helper:start_process(),
  546. PidRemoteWithMetaOn1 = syn_test_suite_helper:start_process(SlaveNode1),
  547. %% retrieve
  548. undefined = syn:lookup("scope_a"),
  549. undefined = rpc:call(SlaveNode1, syn, lookup, ["scope_a"]),
  550. undefined = rpc:call(SlaveNode2, syn, lookup, ["scope_a"]),
  551. undefined = syn:lookup(custom_scope_ab, "scope_a"),
  552. undefined = rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a"]),
  553. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a"]),
  554. undefined = syn:lookup(custom_scope_ab, "scope_a_alias"),
  555. undefined = rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a_alias"]),
  556. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a_alias"]),
  557. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, {remote_scoped_bc}),
  558. undefined = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]),
  559. undefined = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]),
  560. 0 = syn:registry_count(custom_scope_ab),
  561. 0 = syn:registry_count(custom_scope_ab, node()),
  562. 0 = syn:registry_count(custom_scope_ab, SlaveNode1),
  563. 0 = syn:registry_count(custom_scope_ab, SlaveNode2),
  564. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
  565. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, node()),
  566. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode1),
  567. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode2),
  568. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab]),
  569. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, node()]),
  570. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode1]),
  571. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode2]),
  572. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
  573. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
  574. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  575. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  576. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab]),
  577. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, node()]),
  578. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode1]),
  579. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode2]),
  580. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
  581. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
  582. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  583. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  584. %% register
  585. ok = syn:register(custom_scope_ab, "scope_a", Pid),
  586. ok = syn:register(custom_scope_ab, "scope_a_alias", PidWithMeta, <<"with_meta">>),
  587. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:register(custom_scope_bc, "scope_a", Pid),
  588. {'EXIT', {{invalid_scope, non_existent_scope}, _}} = catch syn:register(non_existent_scope, "scope_a", Pid),
  589. ok = rpc:call(SlaveNode2, syn, register, [custom_scope_bc, {remote_scoped_bc}, PidRemoteWithMetaOn1, <<"with_meta 1">>]),
  590. %% errors
  591. {error, taken} = syn:register(custom_scope_ab, "scope_a", PidWithMeta),
  592. {error, not_alive} = syn:register(custom_scope_ab, {"pid not alive"}, list_to_pid("<0.9999.0>")),
  593. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:register(custom_scope_bc, "scope_a_noscope", Pid),
  594. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:unregister(custom_scope_bc, "scope_a_noscope"),
  595. %% retrieve
  596. syn_test_suite_helper:assert_wait(
  597. undefined,
  598. fun() -> syn:lookup("scope_a") end
  599. ),
  600. syn_test_suite_helper:assert_wait(
  601. undefined,
  602. fun() -> rpc:call(SlaveNode1, syn, lookup, ["scope_a"]) end
  603. ),
  604. syn_test_suite_helper:assert_wait(
  605. undefined,
  606. fun() -> rpc:call(SlaveNode2, syn, lookup, ["scope_a"]) end
  607. ),
  608. syn_test_suite_helper:assert_wait(
  609. {Pid, undefined},
  610. fun() -> syn:lookup(custom_scope_ab, "scope_a") end
  611. ),
  612. syn_test_suite_helper:assert_wait(
  613. {Pid, undefined},
  614. fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a"]) end
  615. ),
  616. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a"]),
  617. syn_test_suite_helper:assert_wait(
  618. {PidWithMeta, <<"with_meta">>},
  619. fun() -> syn:lookup(custom_scope_ab, "scope_a_alias") end
  620. ),
  621. syn_test_suite_helper:assert_wait(
  622. {PidWithMeta, <<"with_meta">>},
  623. fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a_alias"]) end
  624. ),
  625. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a_alias"]),
  626. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, {remote_scoped_bc}),
  627. syn_test_suite_helper:assert_wait(
  628. {PidRemoteWithMetaOn1, <<"with_meta 1">>},
  629. fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]) end
  630. ),
  631. syn_test_suite_helper:assert_wait(
  632. {PidRemoteWithMetaOn1, <<"with_meta 1">>},
  633. fun() -> rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]) end
  634. ),
  635. 2 = syn:registry_count(custom_scope_ab),
  636. 2 = syn:registry_count(custom_scope_ab, node()),
  637. 0 = syn:registry_count(custom_scope_ab, SlaveNode1),
  638. 0 = syn:registry_count(custom_scope_ab, SlaveNode2),
  639. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
  640. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, node()),
  641. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode1),
  642. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode2),
  643. 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab]),
  644. 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, node()]),
  645. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode1]),
  646. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode2]),
  647. 1 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
  648. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
  649. 1 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  650. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  651. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab]),
  652. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, node()]),
  653. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode1]),
  654. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode2]),
  655. 1 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
  656. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
  657. 1 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  658. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  659. %% re-register to edit meta
  660. ok = syn:register(custom_scope_ab, "scope_a_alias", PidWithMeta, <<"with_meta_updated">>),
  661. syn_test_suite_helper:assert_wait(
  662. {PidWithMeta, <<"with_meta_updated">>},
  663. fun() -> syn:lookup(custom_scope_ab, "scope_a_alias") end
  664. ),
  665. syn_test_suite_helper:assert_wait(
  666. {PidWithMeta, <<"with_meta_updated">>},
  667. fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a_alias"]) end
  668. ),
  669. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a_alias"]),
  670. %% crash scope process to ensure that monitors get recreated
  671. syn_test_suite_helper:kill_process(syn_registry_custom_scope_ab),
  672. syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
  673. %% kill process
  674. syn_test_suite_helper:kill_process(Pid),
  675. syn_test_suite_helper:kill_process(PidWithMeta),
  676. %% unregister processes
  677. {error, undefined} = catch syn:unregister(<<"my proc with meta">>),
  678. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:unregister(custom_scope_bc, <<"my proc with meta">>),
  679. ok = rpc:call(SlaveNode1, syn, unregister, [custom_scope_bc, {remote_scoped_bc}]),
  680. %% retrieve
  681. syn_test_suite_helper:assert_wait(
  682. undefined,
  683. fun() -> syn:lookup("scope_a") end
  684. ),
  685. syn_test_suite_helper:assert_wait(
  686. undefined,
  687. fun() -> rpc:call(SlaveNode1, syn, lookup, ["scope_a"]) end
  688. ),
  689. syn_test_suite_helper:assert_wait(
  690. undefined,
  691. fun() -> rpc:call(SlaveNode2, syn, lookup, ["scope_a"]) end
  692. ),
  693. syn_test_suite_helper:assert_wait(
  694. undefined,
  695. fun() -> syn:lookup(custom_scope_ab, "scope_a") end
  696. ),
  697. syn_test_suite_helper:assert_wait(
  698. undefined,
  699. fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a"]) end
  700. ),
  701. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a"]),
  702. syn_test_suite_helper:assert_wait(
  703. undefined,
  704. fun() -> syn:lookup(custom_scope_ab, "scope_a_alias") end
  705. ),
  706. syn_test_suite_helper:assert_wait(
  707. undefined,
  708. fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a_alias"]) end
  709. ),
  710. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a_alias"]),
  711. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, {remote_scoped_bc}),
  712. syn_test_suite_helper:assert_wait(
  713. undefined,
  714. fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]) end
  715. ),
  716. syn_test_suite_helper:assert_wait(
  717. undefined,
  718. fun() -> rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]) end
  719. ),
  720. 0 = syn:registry_count(custom_scope_ab),
  721. 0 = syn:registry_count(custom_scope_ab, node()),
  722. 0 = syn:registry_count(custom_scope_ab, SlaveNode1),
  723. 0 = syn:registry_count(custom_scope_ab, SlaveNode2),
  724. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
  725. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, node()),
  726. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode1),
  727. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode2),
  728. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab]),
  729. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, node()]),
  730. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode1]),
  731. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode2]),
  732. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
  733. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
  734. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  735. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  736. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab]),
  737. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, node()]),
  738. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode1]),
  739. {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode2]),
  740. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
  741. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
  742. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  743. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  744. %% errors
  745. {error, undefined} = syn:unregister(custom_scope_ab, {invalid_name}),
  746. %% (simulate race condition)
  747. Pid1 = syn_test_suite_helper:start_process(),
  748. Pid2 = syn_test_suite_helper:start_process(),
  749. ok = syn:register(custom_scope_ab, <<"my proc">>, Pid1),
  750. syn_test_suite_helper:assert_wait(
  751. {Pid1, undefined},
  752. fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, <<"my proc">>]) end
  753. ),
  754. syn_registry:remove_from_local_table(custom_scope_ab, <<"my proc">>, Pid1),
  755. syn_registry:add_to_local_table(custom_scope_ab, <<"my proc">>, Pid2, undefined, 0, undefined),
  756. {error, race_condition} = rpc:call(SlaveNode1, syn, unregister, [custom_scope_ab, <<"my proc">>]).
  757. three_nodes_cluster_changes(Config) ->
  758. %% get slaves
  759. SlaveNode1 = proplists:get_value(slave_node_1, Config),
  760. SlaveNode2 = proplists:get_value(slave_node_2, Config),
  761. %% disconnect 1 from 2
  762. rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
  763. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  764. syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
  765. syn_test_suite_helper:assert_cluster(SlaveNode2, [node()]),
  766. %% start syn on 1 and 2, nodes don't know of each other
  767. ok = rpc:call(SlaveNode1, syn, start, []),
  768. ok = rpc:call(SlaveNode2, syn, start, []),
  769. %% add custom scopes
  770. ok = rpc:call(SlaveNode1, syn, add_node_to_scopes, [[custom_scope_bc]]),
  771. ok = rpc:call(SlaveNode2, syn, add_node_to_scopes, [[custom_scope_bc]]),
  772. %% start processes
  773. PidRemoteOn1 = syn_test_suite_helper:start_process(SlaveNode1),
  774. PidRemoteOn2 = syn_test_suite_helper:start_process(SlaveNode2),
  775. %% register
  776. ok = rpc:call(SlaveNode1, syn, register, ["proc-1", PidRemoteOn1, "meta-1"]),
  777. ok = rpc:call(SlaveNode1, syn, register, ["proc-2", PidRemoteOn2, "meta-2"]),
  778. ok = rpc:call(SlaveNode1, syn, register, [custom_scope_bc, "BC-proc-1", PidRemoteOn1, "meta-1"]),
  779. ok = rpc:call(SlaveNode1, syn, register, [custom_scope_bc, "BC-proc-1 alias", PidRemoteOn1, "meta-1 alias"]),
  780. %% form full cluster
  781. ok = syn:start(),
  782. rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
  783. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  784. syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
  785. syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
  786. syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
  787. {PidRemoteOn1, "meta-1"} = syn:lookup("proc-1"),
  788. {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, ["proc-1"]),
  789. {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode2, syn, lookup, ["proc-1"]),
  790. {PidRemoteOn2, "meta-2"} = syn:lookup("proc-2"),
  791. {PidRemoteOn2, "meta-2"} = rpc:call(SlaveNode1, syn, lookup, ["proc-2"]),
  792. {PidRemoteOn2, "meta-2"} = rpc:call(SlaveNode2, syn, lookup, ["proc-2"]),
  793. 2 = syn:registry_count(default),
  794. 0 = syn:registry_count(default, node()),
  795. 1 = syn:registry_count(default, SlaveNode1),
  796. 1 = syn:registry_count(default, SlaveNode2),
  797. 2 = rpc:call(SlaveNode1, syn, registry_count, [default]),
  798. 0 = rpc:call(SlaveNode1, syn, registry_count, [default, node()]),
  799. 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode1]),
  800. 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode2]),
  801. 2 = rpc:call(SlaveNode2, syn, registry_count, [default]),
  802. 0 = rpc:call(SlaveNode2, syn, registry_count, [default, node()]),
  803. 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode1]),
  804. 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode2]),
  805. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1"),
  806. {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
  807. {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
  808. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1 alias"),
  809. {PidRemoteOn1, "meta-1 alias"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
  810. {PidRemoteOn1, "meta-1 alias"} = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
  811. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
  812. 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
  813. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
  814. 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  815. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  816. 2 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
  817. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
  818. 2 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  819. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  820. %% partial netsplit (1 cannot see 2)
  821. rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
  822. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  823. syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
  824. syn_test_suite_helper:assert_cluster(SlaveNode2, [node()]),
  825. %% retrieve
  826. {PidRemoteOn1, "meta-1"} = syn:lookup("proc-1"),
  827. {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, ["proc-1"]),
  828. undefined = rpc:call(SlaveNode2, syn, lookup, ["proc-1"]),
  829. {PidRemoteOn2, "meta-2"} = syn:lookup("proc-2"),
  830. undefined = rpc:call(SlaveNode1, syn, lookup, ["proc-2"]),
  831. {PidRemoteOn2, "meta-2"} = rpc:call(SlaveNode2, syn, lookup, ["proc-2"]),
  832. 2 = syn:registry_count(default),
  833. 0 = syn:registry_count(default, node()),
  834. 1 = syn:registry_count(default, SlaveNode1),
  835. 1 = syn:registry_count(default, SlaveNode2),
  836. 1 = rpc:call(SlaveNode1, syn, registry_count, [default]),
  837. 0 = rpc:call(SlaveNode1, syn, registry_count, [default, node()]),
  838. 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode1]),
  839. 0 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode2]),
  840. 1 = rpc:call(SlaveNode2, syn, registry_count, [default]),
  841. 0 = rpc:call(SlaveNode2, syn, registry_count, [default, node()]),
  842. 0 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode1]),
  843. 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode2]),
  844. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1"),
  845. {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
  846. undefined = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
  847. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1 alias"),
  848. {PidRemoteOn1, "meta-1 alias"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
  849. undefined = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
  850. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
  851. 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
  852. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
  853. 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  854. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  855. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
  856. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
  857. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  858. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  859. %% re-join
  860. rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
  861. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  862. syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
  863. syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
  864. %% retrieve
  865. {PidRemoteOn1, "meta-1"} = syn:lookup("proc-1"),
  866. {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, ["proc-1"]),
  867. {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode2, syn, lookup, ["proc-1"]),
  868. {PidRemoteOn2, "meta-2"} = syn:lookup("proc-2"),
  869. {PidRemoteOn2, "meta-2"} = rpc:call(SlaveNode1, syn, lookup, ["proc-2"]),
  870. {PidRemoteOn2, "meta-2"} = rpc:call(SlaveNode2, syn, lookup, ["proc-2"]),
  871. 2 = syn:registry_count(default),
  872. 0 = syn:registry_count(default, node()),
  873. 1 = syn:registry_count(default, SlaveNode1),
  874. 1 = syn:registry_count(default, SlaveNode2),
  875. 2 = rpc:call(SlaveNode1, syn, registry_count, [default]),
  876. 0 = rpc:call(SlaveNode1, syn, registry_count, [default, node()]),
  877. 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode1]),
  878. 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode2]),
  879. 2 = rpc:call(SlaveNode2, syn, registry_count, [default]),
  880. 0 = rpc:call(SlaveNode2, syn, registry_count, [default, node()]),
  881. 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode1]),
  882. 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode2]),
  883. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1"),
  884. {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
  885. {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
  886. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1 alias"),
  887. {PidRemoteOn1, "meta-1 alias"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
  888. {PidRemoteOn1, "meta-1 alias"} = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
  889. {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
  890. 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
  891. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
  892. 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  893. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  894. 2 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
  895. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
  896. 2 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  897. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]).
  898. three_nodes_cluster_conflicts(Config) ->
  899. %% get slaves
  900. SlaveNode1 = proplists:get_value(slave_node_1, Config),
  901. SlaveNode2 = proplists:get_value(slave_node_2, Config),
  902. %% start syn on nodes
  903. ok = syn:start(),
  904. ok = rpc:call(SlaveNode1, syn, start, []),
  905. ok = rpc:call(SlaveNode2, syn, start, []),
  906. %% add custom scopes
  907. ok = rpc:call(SlaveNode1, syn, add_node_to_scopes, [[custom_scope_bc]]),
  908. ok = rpc:call(SlaveNode2, syn, add_node_to_scopes, [[custom_scope_bc]]),
  909. %% partial netsplit (1 cannot see 2)
  910. rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
  911. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  912. syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
  913. syn_test_suite_helper:assert_cluster(SlaveNode2, [node()]),
  914. %% start conflict processes
  915. Pid2RemoteOn1 = syn_test_suite_helper:start_process(SlaveNode1),
  916. Pid2RemoteOn2 = syn_test_suite_helper:start_process(SlaveNode2),
  917. %% --> conflict by netsplit
  918. ok = rpc:call(SlaveNode1, syn, register, ["proc-confict", Pid2RemoteOn1, "meta-1"]),
  919. ok = rpc:call(SlaveNode2, syn, register, ["proc-confict", Pid2RemoteOn2, "meta-2"]),
  920. ok = rpc:call(SlaveNode1, syn, register, [custom_scope_bc, "proc-confict", Pid2RemoteOn1, "meta-1"]),
  921. ok = rpc:call(SlaveNode2, syn, register, [custom_scope_bc, "proc-confict", Pid2RemoteOn2, "meta-2"]),
  922. %% re-join
  923. rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
  924. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  925. syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
  926. syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
  927. %% retrieve
  928. {Pid2RemoteOn2, "meta-2"} = syn:lookup("proc-confict"),
  929. syn_test_suite_helper:assert_wait(
  930. {Pid2RemoteOn2, "meta-2"},
  931. fun() -> rpc:call(SlaveNode1, syn, lookup, ["proc-confict"]) end
  932. ),
  933. syn_test_suite_helper:assert_wait(
  934. {Pid2RemoteOn2, "meta-2"},
  935. fun() -> rpc:call(SlaveNode2, syn, lookup, ["proc-confict"]) end
  936. ),
  937. 1 = syn:registry_count(default),
  938. 0 = syn:registry_count(default, node()),
  939. 0 = syn:registry_count(default, SlaveNode1),
  940. 1 = syn:registry_count(default, SlaveNode2),
  941. 1 = rpc:call(SlaveNode1, syn, registry_count, [default]),
  942. 0 = rpc:call(SlaveNode1, syn, registry_count, [default, node()]),
  943. 0 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode1]),
  944. 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode2]),
  945. 1 = rpc:call(SlaveNode2, syn, registry_count, [default]),
  946. 0 = rpc:call(SlaveNode2, syn, registry_count, [default, node()]),
  947. 0 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode1]),
  948. 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode2]),
  949. {Pid2RemoteOn2, "meta-2"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "proc-confict"]),
  950. {Pid2RemoteOn2, "meta-2"} = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "proc-confict"]),
  951. 1 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
  952. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
  953. 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  954. 1 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  955. 1 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
  956. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
  957. 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
  958. 1 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
  959. %% --> conflict by race condition
  960. Pid1 = syn_test_suite_helper:start_process(),
  961. Pid2 = syn_test_suite_helper:start_process(SlaveNode1),
  962. rpc:call(SlaveNode1, syn_registry, add_to_local_table, [default, <<"my proc">>, Pid2, "meta-2", erlang:system_time(), undefined]),
  963. ok = syn:register(<<"my proc">>, Pid1, "meta-1"),
  964. {Pid1, "meta-1"} = syn:lookup(<<"my proc">>),
  965. syn_test_suite_helper:assert_wait(
  966. {Pid1, "meta-1"},
  967. fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc">>]) end
  968. ),
  969. syn_test_suite_helper:assert_wait(
  970. {Pid1, "meta-1"},
  971. fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc">>]) end
  972. ),
  973. true = is_process_alive(Pid1),
  974. false = rpc:call(SlaveNode1, erlang, is_process_alive, [Pid2]),
  975. PidCustom1 = syn_test_suite_helper:start_process(SlaveNode1),
  976. PidCustom2 = syn_test_suite_helper:start_process(SlaveNode2),
  977. rpc:call(SlaveNode2, syn_registry, add_to_local_table, [custom_scope_bc, <<"my proc">>, PidCustom2, "meta-2", erlang:system_time(), undefined]),
  978. ok = rpc:call(SlaveNode1, syn, register, [custom_scope_bc, <<"my proc">>, PidCustom1, "meta-1"]),
  979. syn_test_suite_helper:assert_wait(
  980. {PidCustom1, "meta-1"},
  981. fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, <<"my proc">>]) end
  982. ),
  983. syn_test_suite_helper:assert_wait(
  984. {PidCustom1, "meta-1"},
  985. fun() -> rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, <<"my proc">>]) end
  986. ),
  987. true = rpc:call(SlaveNode1, erlang, is_process_alive, [PidCustom1]),
  988. false = rpc:call(SlaveNode2, erlang, is_process_alive, [PidCustom2]).
  989. three_nodes_custom_event_handler_reg_unreg(Config) ->
  990. %% get slaves
  991. SlaveNode1 = proplists:get_value(slave_node_1, Config),
  992. SlaveNode2 = proplists:get_value(slave_node_2, Config),
  993. %% add custom handler
  994. syn_test_suite_helper:use_custom_handler(),
  995. rpc:call(SlaveNode1, syn_test_suite_helper, use_custom_handler, []),
  996. rpc:call(SlaveNode2, syn_test_suite_helper, use_custom_handler, []),
  997. %% start syn on nodes
  998. ok = syn:start(),
  999. ok = rpc:call(SlaveNode1, syn, start, []),
  1000. ok = rpc:call(SlaveNode2, syn, start, []),
  1001. %% init
  1002. CurrentNode = node(),
  1003. %% start process
  1004. Pid = syn_test_suite_helper:start_process(),
  1005. %% ---> on registration
  1006. ok = syn:register("proc-handler", Pid, {recipient, self(), <<"meta">>}),
  1007. %% check callbacks called
  1008. syn_test_suite_helper:assert_received_messages([
  1009. {on_process_registered, CurrentNode, default, "proc-handler", Pid, <<"meta">>},
  1010. {on_process_registered, SlaveNode1, default, "proc-handler", Pid, <<"meta">>},
  1011. {on_process_registered, SlaveNode2, default, "proc-handler", Pid, <<"meta">>}
  1012. ]),
  1013. syn_test_suite_helper:assert_empty_queue(self()),
  1014. %% ---> on meta update
  1015. ok = syn:register("proc-handler", Pid, {recipient, self(), <<"new-meta">>}),
  1016. %% check callbacks called
  1017. syn_test_suite_helper:assert_received_messages([
  1018. {on_process_registered, CurrentNode, default, "proc-handler", Pid, <<"new-meta">>},
  1019. {on_process_registered, SlaveNode1, default, "proc-handler", Pid, <<"new-meta">>},
  1020. {on_process_registered, SlaveNode2, default, "proc-handler", Pid, <<"new-meta">>}
  1021. ]),
  1022. syn_test_suite_helper:assert_empty_queue(self()),
  1023. %% ---> on unregister
  1024. ok = syn:unregister("proc-handler"),
  1025. %% check callbacks called
  1026. syn_test_suite_helper:assert_received_messages([
  1027. {on_process_unregistered, CurrentNode, default, "proc-handler", Pid, <<"new-meta">>},
  1028. {on_process_unregistered, SlaveNode1, default, "proc-handler", Pid, <<"new-meta">>},
  1029. {on_process_unregistered, SlaveNode2, default, "proc-handler", Pid, <<"new-meta">>}
  1030. ]),
  1031. syn_test_suite_helper:assert_empty_queue(self()),
  1032. %% clean & check
  1033. syn_test_suite_helper:kill_process(Pid),
  1034. syn_test_suite_helper:assert_empty_queue(self()),
  1035. %% ---> after a netsplit
  1036. PidRemoteOn1 = syn_test_suite_helper:start_process(SlaveNode1),
  1037. syn:register(remote_on_1, PidRemoteOn1, {recipient, self(), <<"netsplit">>}),
  1038. %% check callbacks called
  1039. syn_test_suite_helper:assert_received_messages([
  1040. {on_process_registered, CurrentNode, default, remote_on_1, PidRemoteOn1, <<"netsplit">>},
  1041. {on_process_registered, SlaveNode1, default, remote_on_1, PidRemoteOn1, <<"netsplit">>},
  1042. {on_process_registered, SlaveNode2, default, remote_on_1, PidRemoteOn1, <<"netsplit">>}
  1043. ]),
  1044. syn_test_suite_helper:assert_empty_queue(self()),
  1045. %% partial netsplit (1 cannot see 2)
  1046. rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
  1047. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  1048. syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
  1049. syn_test_suite_helper:assert_cluster(SlaveNode2, [node()]),
  1050. %% check callbacks called
  1051. syn_test_suite_helper:assert_received_messages([
  1052. {on_process_unregistered, SlaveNode2, default, remote_on_1, PidRemoteOn1, <<"netsplit">>}
  1053. ]),
  1054. syn_test_suite_helper:assert_empty_queue(self()),
  1055. %% ---> after a re-join
  1056. %% re-join
  1057. rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
  1058. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  1059. syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
  1060. syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
  1061. %% check callbacks called
  1062. syn_test_suite_helper:assert_received_messages([
  1063. {on_process_registered, SlaveNode2, default, remote_on_1, PidRemoteOn1, <<"netsplit">>}
  1064. ]),
  1065. syn_test_suite_helper:assert_empty_queue(self()),
  1066. %% clean
  1067. syn_test_suite_helper:kill_process(PidRemoteOn1),
  1068. %% check callbacks called
  1069. syn_test_suite_helper:assert_received_messages([
  1070. {on_process_unregistered, CurrentNode, default, remote_on_1, PidRemoteOn1, <<"netsplit">>},
  1071. {on_process_unregistered, SlaveNode1, default, remote_on_1, PidRemoteOn1, <<"netsplit">>},
  1072. {on_process_unregistered, SlaveNode2, default, remote_on_1, PidRemoteOn1, <<"netsplit">>}
  1073. ]),
  1074. syn_test_suite_helper:assert_empty_queue(self()),
  1075. %% ---> after a conflict resolution
  1076. %% partial netsplit (1 cannot see 2)
  1077. rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
  1078. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  1079. syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
  1080. syn_test_suite_helper:assert_cluster(SlaveNode2, [node()]),
  1081. %% start conflict processes
  1082. Pid2RemoteOn1 = syn_test_suite_helper:start_process(SlaveNode1),
  1083. Pid2RemoteOn2 = syn_test_suite_helper:start_process(SlaveNode2),
  1084. ok = rpc:call(SlaveNode1, syn, register, ["proc-confict", Pid2RemoteOn1, {recipient, self(), <<"meta-1">>}]),
  1085. ok = rpc:call(SlaveNode2, syn, register, ["proc-confict", Pid2RemoteOn2, {recipient, self(), <<"meta-2">>}]),
  1086. %% check callbacks called
  1087. syn_test_suite_helper:assert_received_messages([
  1088. {on_process_registered, CurrentNode, default, "proc-confict", Pid2RemoteOn1, <<"meta-1">>},
  1089. {on_process_unregistered, CurrentNode, default, "proc-confict", Pid2RemoteOn1, <<"meta-1">>},
  1090. {on_process_registered, CurrentNode, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>},
  1091. {on_process_registered, SlaveNode1, default, "proc-confict", Pid2RemoteOn1, <<"meta-1">>},
  1092. {on_process_registered, SlaveNode2, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>}
  1093. ]),
  1094. syn_test_suite_helper:assert_empty_queue(self()),
  1095. %% re-join
  1096. rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
  1097. syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
  1098. syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
  1099. syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
  1100. %% check callbacks called
  1101. syn_test_suite_helper:assert_received_messages([
  1102. {on_process_unregistered, SlaveNode1, default, "proc-confict", Pid2RemoteOn1, <<"meta-1">>},
  1103. {on_process_registered, SlaveNode1, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>}
  1104. ]),
  1105. syn_test_suite_helper:assert_empty_queue(self()),
  1106. %% clean
  1107. syn_test_suite_helper:kill_process(Pid2RemoteOn1),
  1108. syn_test_suite_helper:kill_process(Pid2RemoteOn2),
  1109. %% check callbacks called
  1110. syn_test_suite_helper:assert_received_messages([
  1111. {on_process_unregistered, CurrentNode, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>},
  1112. {on_process_unregistered, SlaveNode1, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>},
  1113. {on_process_unregistered, SlaveNode2, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>}
  1114. ]),
  1115. syn_test_suite_helper:assert_empty_queue(self()),
  1116. %% ---> don't call on monitor rebuild
  1117. %% crash the scope process on local
  1118. syn_test_suite_helper:kill_process(syn_registry_default),
  1119. %% no messages
  1120. syn_test_suite_helper:assert_wait(
  1121. ok,
  1122. fun() -> syn_test_suite_helper:assert_empty_queue(self()) end
  1123. ).