123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251 |
- %% ==========================================================================================================
- %% Syn - A global Process Registry and Process Group manager.
- %%
- %% The MIT License (MIT)
- %%
- %% Copyright (c) 2015-2021 Roberto Ostinelli <roberto@ostinelli.net> and Neato Robotics, Inc.
- %%
- %% Permission is hereby granted, free of charge, to any person obtaining a copy
- %% of this software and associated documentation files (the "Software"), to deal
- %% in the Software without restriction, including without limitation the rights
- %% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- %% copies of the Software, and to permit persons to whom the Software is
- %% furnished to do so, subject to the following conditions:
- %%
- %% The above copyright notice and this permission notice shall be included in
- %% all copies or substantial portions of the Software.
- %%
- %% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- %% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- %% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- %% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- %% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- %% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
- %% THE SOFTWARE.
- %% ==========================================================================================================
- -module(syn_registry_SUITE).
- %% callbacks
- -export([all/0]).
- -export([init_per_suite/1, end_per_suite/1]).
- -export([groups/0, init_per_group/2, end_per_group/2]).
- -export([init_per_testcase/2, end_per_testcase/2]).
- %% tests
- -export([
- one_node_via_register_unregister/1
- ]).
- -export([
- three_nodes_discover_default_scope/1,
- three_nodes_discover_custom_scope/1,
- three_nodes_register_unregister_and_monitor_default_scope/1,
- three_nodes_register_unregister_and_monitor_custom_scope/1,
- three_nodes_cluster_changes/1,
- three_nodes_cluster_conflicts/1,
- three_nodes_custom_event_handler_reg_unreg/1
- ]).
- %% include
- -include_lib("common_test/include/ct.hrl").
- -include_lib("syn/src/syn.hrl").
- %% ===================================================================
- %% Callbacks
- %% ===================================================================
- %% -------------------------------------------------------------------
- %% Function: all() -> GroupsAndTestCases | {skip,Reason}
- %% GroupsAndTestCases = [{group,GroupName} | TestCase]
- %% GroupName = atom()
- %% TestCase = atom()
- %% Reason = any()
- %% -------------------------------------------------------------------
- all() ->
- [
- {group, one_process_registration},
- {group, three_nodes_process_registration}
- ].
- %% -------------------------------------------------------------------
- %% Function: groups() -> [Group]
- %% Group = {GroupName,Properties,GroupsAndTestCases}
- %% GroupName = atom()
- %% Properties = [parallel | sequence | Shuffle | {RepeatType,N}]
- %% GroupsAndTestCases = [Group | {group,GroupName} | TestCase]
- %% TestCase = atom()
- %% Shuffle = shuffle | {shuffle,{integer(),integer(),integer()}}
- %% RepeatType = repeat | repeat_until_all_ok | repeat_until_all_fail |
- %% repeat_until_any_ok | repeat_until_any_fail
- %% N = integer() | forever
- %% -------------------------------------------------------------------
- groups() ->
- [
- {one_process_registration, [shuffle], [
- one_node_via_register_unregister
- ]},
- {three_nodes_process_registration, [shuffle], [
- three_nodes_discover_default_scope,
- three_nodes_discover_custom_scope,
- three_nodes_register_unregister_and_monitor_default_scope,
- three_nodes_register_unregister_and_monitor_custom_scope,
- three_nodes_cluster_changes,
- three_nodes_cluster_conflicts,
- three_nodes_custom_event_handler_reg_unreg
- ]}
- ].
- %% -------------------------------------------------------------------
- %% Function: init_per_suite(Config0) ->
- %% Config1 | {skip,Reason} |
- %% {skip_and_save,Reason,Config1}
- %% Config0 = Config1 = [tuple()]
- %% Reason = any()
- %% -------------------------------------------------------------------
- init_per_suite(Config) ->
- Config.
- %% -------------------------------------------------------------------
- %% Function: end_per_suite(Config0) -> void() | {save_config,Config1}
- %% Config0 = Config1 = [tuple()]
- %% -------------------------------------------------------------------
- end_per_suite(_Config) ->
- ok.
- %% -------------------------------------------------------------------
- %% Function: init_per_group(GroupName, Config0) ->
- %% Config1 | {skip,Reason} |
- %% {skip_and_save,Reason,Config1}
- %% GroupName = atom()
- %% Config0 = Config1 = [tuple()]
- %% Reason = any()
- %% -------------------------------------------------------------------
- init_per_group(three_nodes_process_registration, Config) ->
- %% start slave
- {ok, SlaveNode1} = syn_test_suite_helper:start_slave(syn_slave_1),
- {ok, SlaveNode2} = syn_test_suite_helper:start_slave(syn_slave_2),
- syn_test_suite_helper:connect_node(SlaveNode1),
- syn_test_suite_helper:connect_node(SlaveNode2),
- rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
- %% wait full cluster
- case syn_test_suite_helper:wait_cluster_mesh_connected([node(), SlaveNode1, SlaveNode2]) of
- ok ->
- %% config
- [{slave_node_1, SlaveNode1}, {slave_node_2, SlaveNode2} | Config];
- Other ->
- ct:pal("*********** Could not get full cluster, skipping"),
- end_per_group(three_nodes_process_registration, Config),
- {skip, Other}
- end;
- init_per_group(_GroupName, Config) ->
- Config.
- %% -------------------------------------------------------------------
- %% Function: end_per_group(GroupName, Config0) ->
- %% void() | {save_config,Config1}
- %% GroupName = atom()
- %% Config0 = Config1 = [tuple()]
- %% -------------------------------------------------------------------
- end_per_group(three_nodes_process_registration, Config) ->
- SlaveNode1 = proplists:get_value(slave_node_1, Config),
- syn_test_suite_helper:connect_node(SlaveNode1),
- SlaveNode2 = proplists:get_value(slave_node_2, Config),
- syn_test_suite_helper:connect_node(SlaveNode2),
- syn_test_suite_helper:clean_after_test(),
- syn_test_suite_helper:stop_slave(syn_slave_1),
- syn_test_suite_helper:stop_slave(syn_slave_2),
- timer:sleep(1000);
- end_per_group(_GroupName, _Config) ->
- syn_test_suite_helper:clean_after_test().
- %% -------------------------------------------------------------------
- %% Function: init_per_testcase(TestCase, Config0) ->
- %% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1}
- %% TestCase = atom()
- %% Config0 = Config1 = [tuple()]
- %% Reason = any()
- %% -------------------------------------------------------------------
- init_per_testcase(TestCase, Config) ->
- ct:pal("Starting test: ~p", [TestCase]),
- Config.
- %% -------------------------------------------------------------------
- %% Function: end_per_testcase(TestCase, Config0) ->
- %% void() | {save_config,Config1} | {fail,Reason}
- %% TestCase = atom()
- %% Config0 = Config1 = [tuple()]
- %% Reason = any()
- %% -------------------------------------------------------------------
- end_per_testcase(_, _Config) ->
- syn_test_suite_helper:clean_after_test().
- %% ===================================================================
- %% Tests
- %% ===================================================================
- one_node_via_register_unregister(_Config) ->
- %% start syn
- ok = syn:start(),
- %% start gen server via syn
- {ok, Pid} = syn_test_gen_server:start_link(),
- %% retrieve
- {Pid, undefined} = syn:lookup(syn_test_gen_server),
- %% call
- pong = syn_test_gen_server:ping(),
- %% send via syn
- syn:send(syn_test_gen_server, {self(), send_ping}),
- syn_test_suite_helper:assert_received_messages([
- reply_pong
- ]),
- %% stop server
- syn_test_gen_server:stop(),
- %% retrieve
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> syn:lookup(syn_test_gen_server) end
- ),
- %% send via syn
- {badarg, {syn_test_gen_server, anything}} = catch syn:send(syn_test_gen_server, anything).
- three_nodes_discover_default_scope(Config) ->
- %% get slaves
- SlaveNode1 = proplists:get_value(slave_node_1, Config),
- SlaveNode2 = proplists:get_value(slave_node_2, Config),
- %% start syn on nodes
- ok = syn:start(),
- ok = rpc:call(SlaveNode1, syn, start, []),
- ok = rpc:call(SlaveNode2, syn, start, []),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]),
- %% simulate full netsplit
- rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
- syn_test_suite_helper:disconnect_node(SlaveNode1),
- syn_test_suite_helper:disconnect_node(SlaveNode2),
- syn_test_suite_helper:assert_cluster(node(), []),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), default, []),
- %% reconnect slave 1
- syn_test_suite_helper:connect_node(SlaveNode1),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node()]),
- %% reconnect all
- syn_test_suite_helper:connect_node(SlaveNode2),
- rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]),
- %% simulate full netsplit, again
- rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
- syn_test_suite_helper:disconnect_node(SlaveNode1),
- syn_test_suite_helper:disconnect_node(SlaveNode2),
- syn_test_suite_helper:assert_cluster(node(), []),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), default, []),
- %% reconnect all, again
- syn_test_suite_helper:connect_node(SlaveNode2),
- rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]),
- %% crash the scope process on local
- syn_test_suite_helper:kill_process(syn_registry_default),
- syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
- %% check, it should have rebuilt after supervisor restarts it
- syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]),
- %% crash scopes supervisor on local
- syn_test_suite_helper:kill_process(syn_scopes_sup),
- syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]).
- three_nodes_discover_custom_scope(Config) ->
- %% get slaves
- SlaveNode1 = proplists:get_value(slave_node_1, Config),
- SlaveNode2 = proplists:get_value(slave_node_2, Config),
- %% start syn on nodes
- ok = syn:start(),
- ok = rpc:call(SlaveNode1, syn, start, []),
- ok = rpc:call(SlaveNode2, syn, start, []),
- %% add custom scopes
- ok = syn:add_node_to_scope(custom_scope_ab),
- ok = syn:add_node_to_scope(custom_scope_all),
- ok = rpc:call(SlaveNode1, syn, add_node_to_scopes, [[custom_scope_ab, custom_scope_bc, custom_scope_all]]),
- ok = rpc:call(SlaveNode2, syn, add_node_to_scopes, [[custom_scope_bc, custom_scope_c, custom_scope_all]]),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_ab, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_all, [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_ab, [node()]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_bc, [SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_all, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_bc, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_c, []),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_all, [node(), SlaveNode1]),
- %% check default
- syn_test_suite_helper:assert_scope_subcluster(node(), default, [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, default, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, default, [node(), SlaveNode1]),
- %% disconnect node 2 (node 1 can still see node 2)
- syn_test_suite_helper:disconnect_node(SlaveNode2),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_ab, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_all, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_ab, [node()]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_bc, [SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_all, [node(), SlaveNode2]),
- %% reconnect node 2
- syn_test_suite_helper:connect_node(SlaveNode2),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_ab, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_all, [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_ab, [node()]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_bc, [SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_all, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_bc, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_c, []),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_all, [node(), SlaveNode1]),
- %% crash a scope process on 2
- rpc:call(SlaveNode2, syn_test_suite_helper, kill_process, [syn_registry_custom_scope_bc]),
- rpc:call(SlaveNode2, syn_test_suite_helper, wait_process_name_ready, [syn_registry_default]),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_ab, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_all, [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_ab, [node()]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_bc, [SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_all, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_bc, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_c, []),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_all, [node(), SlaveNode1]),
- %% crash scopes supervisor on local
- syn_test_suite_helper:kill_process(syn_scopes_sup),
- syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
- %% check
- syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_ab, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(node(), custom_scope_all, [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_ab, [node()]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_bc, [SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode1, custom_scope_all, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_bc, [SlaveNode1]),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_c, []),
- syn_test_suite_helper:assert_scope_subcluster(SlaveNode2, custom_scope_all, [node(), SlaveNode1]).
- three_nodes_register_unregister_and_monitor_default_scope(Config) ->
- %% get slaves
- SlaveNode1 = proplists:get_value(slave_node_1, Config),
- SlaveNode2 = proplists:get_value(slave_node_2, Config),
- %% start syn on nodes
- ok = syn:start(),
- ok = rpc:call(SlaveNode1, syn, start, []),
- ok = rpc:call(SlaveNode2, syn, start, []),
- %% start processes
- Pid = syn_test_suite_helper:start_process(),
- PidWithMeta = syn_test_suite_helper:start_process(),
- PidRemoteOn1 = syn_test_suite_helper:start_process(SlaveNode1),
- %% retrieve
- undefined = syn:lookup(<<"my proc">>),
- undefined = rpc:call(SlaveNode1, syn, lookup, [<<"my proc">>]),
- undefined = rpc:call(SlaveNode2, syn, lookup, [<<"my proc">>]),
- undefined = syn:lookup({"my proc alias"}),
- undefined = rpc:call(SlaveNode1, syn, lookup, [{"my proc alias"}]),
- undefined = rpc:call(SlaveNode2, syn, lookup, [{"my proc alias"}]),
- undefined = syn:lookup(<<"my proc with meta">>),
- undefined = rpc:call(SlaveNode1, syn, lookup, [<<"my proc with meta">>]),
- undefined = rpc:call(SlaveNode2, syn, lookup, [<<"my proc with meta">>]),
- undefined = syn:lookup({remote_pid_on, slave_1}),
- undefined = rpc:call(SlaveNode1, syn, lookup, [{remote_pid_on, slave_1}]),
- undefined = rpc:call(SlaveNode2, syn, lookup, [{remote_pid_on, slave_1}]),
- 0 = syn:registry_count(default),
- 0 = syn:registry_count(default, node()),
- 0 = syn:registry_count(default, SlaveNode1),
- 0 = syn:registry_count(default, SlaveNode2),
- %% register
- ok = syn:register(<<"my proc">>, Pid),
- ok = syn:register({"my proc alias"}, Pid), %% same pid, different name
- ok = syn:register(<<"my proc with meta">>, PidWithMeta, {meta, <<"meta">>}), %% pid with meta
- ok = syn:register({remote_pid_on, slave_1}, PidRemoteOn1), %% remote on slave 1
- %% errors
- {error, taken} = syn:register(<<"my proc">>, PidRemoteOn1),
- {error, not_alive} = syn:register({"pid not alive"}, list_to_pid("<0.9999.0>")),
- %% retrieve
- syn_test_suite_helper:assert_wait(
- {Pid, undefined},
- fun() -> syn:lookup(<<"my proc">>) end
- ),
- syn_test_suite_helper:assert_wait(
- {Pid, undefined},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- {Pid, undefined},
- fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- {Pid, undefined},
- fun() -> syn:lookup({"my proc alias"}) end
- ),
- syn_test_suite_helper:assert_wait(
- {Pid, undefined},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [{"my proc alias"}]) end
- ),
- syn_test_suite_helper:assert_wait(
- {Pid, undefined},
- fun() -> rpc:call(SlaveNode2, syn, lookup, [{"my proc alias"}]) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidWithMeta, {meta, <<"meta">>}},
- fun() -> syn:lookup(<<"my proc with meta">>) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidWithMeta, {meta, <<"meta">>}},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc with meta">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidWithMeta, {meta, <<"meta">>}},
- fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc with meta">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidRemoteOn1, undefined},
- fun() -> syn:lookup({remote_pid_on, slave_1}) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidRemoteOn1, undefined},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [{remote_pid_on, slave_1}]) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidRemoteOn1, undefined},
- fun() -> rpc:call(SlaveNode2, syn, lookup, [{remote_pid_on, slave_1}]) end
- ),
- 4 = syn:registry_count(default),
- 3 = syn:registry_count(default, node()),
- 1 = syn:registry_count(default, SlaveNode1),
- 0 = syn:registry_count(default, SlaveNode2),
- %% re-register to edit meta
- ok = syn:register(<<"my proc with meta">>, PidWithMeta, {meta2, <<"meta2">>}),
- ok = rpc:call(SlaveNode2, syn, register, [{remote_pid_on, slave_1}, PidRemoteOn1, added_meta]), %% updated on slave 2
- %% retrieve
- syn_test_suite_helper:assert_wait(
- {PidWithMeta, {meta2, <<"meta2">>}},
- fun() -> syn:lookup(<<"my proc with meta">>) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidWithMeta, {meta2, <<"meta2">>}},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc with meta">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidWithMeta, {meta2, <<"meta2">>}},
- fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc with meta">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidRemoteOn1, added_meta},
- fun() -> syn:lookup({remote_pid_on, slave_1}) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidRemoteOn1, added_meta},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [{remote_pid_on, slave_1}]) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidRemoteOn1, added_meta},
- fun() -> rpc:call(SlaveNode2, syn, lookup, [{remote_pid_on, slave_1}]) end
- ),
- 4 = syn:registry_count(default),
- 3 = syn:registry_count(default, node()),
- 1 = syn:registry_count(default, SlaveNode1),
- 0 = syn:registry_count(default, SlaveNode2),
- %% crash scope process to ensure that monitors get recreated
- exit(whereis(syn_registry_default), kill),
- syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
- %% kill process
- syn_test_suite_helper:kill_process(Pid),
- syn_test_suite_helper:kill_process(PidRemoteOn1),
- %% unregister process
- ok = syn:unregister(<<"my proc with meta">>),
- %% retrieve
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> syn:lookup(<<"my proc">>) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> syn:lookup({"my proc alias"}) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode1, syn, lookup, [{"my proc alias"}]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode2, syn, lookup, [{"my proc alias"}]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> syn:lookup(<<"my proc with meta">>) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc with meta">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc with meta">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> syn:lookup({remote_pid_on, slave_1}) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode1, syn, lookup, [{remote_pid_on, slave_1}]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode2, syn, lookup, [{remote_pid_on, slave_1}]) end
- ),
- 0 = syn:registry_count(default),
- 0 = syn:registry_count(default, node()),
- 0 = syn:registry_count(default, SlaveNode1),
- 0 = syn:registry_count(default, SlaveNode2),
- %% errors
- {error, undefined} = syn:unregister({invalid_name}),
- %% (simulate race condition)
- Pid1 = syn_test_suite_helper:start_process(),
- Pid2 = syn_test_suite_helper:start_process(),
- ok = syn:register(<<"my proc">>, Pid1),
- syn_test_suite_helper:assert_wait(
- {Pid1, undefined},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc">>]) end
- ),
- syn_registry:remove_from_local_table(default, <<"my proc">>, Pid1),
- syn_registry:add_to_local_table(default, <<"my proc">>, Pid2, undefined, 0, undefined),
- {error, race_condition} = rpc:call(SlaveNode1, syn, unregister, [<<"my proc">>]).
- three_nodes_register_unregister_and_monitor_custom_scope(Config) ->
- %% get slaves
- SlaveNode1 = proplists:get_value(slave_node_1, Config),
- SlaveNode2 = proplists:get_value(slave_node_2, Config),
- %% start syn on nodes
- ok = syn:start(),
- ok = rpc:call(SlaveNode1, syn, start, []),
- ok = rpc:call(SlaveNode2, syn, start, []),
- %% add custom scopes
- ok = syn:add_node_to_scope(custom_scope_ab),
- ok = rpc:call(SlaveNode1, syn, add_node_to_scopes, [[custom_scope_ab, custom_scope_bc]]),
- ok = rpc:call(SlaveNode2, syn, add_node_to_scopes, [[custom_scope_bc]]),
- %% start processes
- Pid = syn_test_suite_helper:start_process(),
- PidWithMeta = syn_test_suite_helper:start_process(),
- PidRemoteWithMetaOn1 = syn_test_suite_helper:start_process(SlaveNode1),
- %% retrieve
- undefined = syn:lookup("scope_a"),
- undefined = rpc:call(SlaveNode1, syn, lookup, ["scope_a"]),
- undefined = rpc:call(SlaveNode2, syn, lookup, ["scope_a"]),
- undefined = syn:lookup(custom_scope_ab, "scope_a"),
- undefined = rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a"]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a"]),
- undefined = syn:lookup(custom_scope_ab, "scope_a_alias"),
- undefined = rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a_alias"]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a_alias"]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, {remote_scoped_bc}),
- undefined = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]),
- undefined = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]),
- 0 = syn:registry_count(custom_scope_ab),
- 0 = syn:registry_count(custom_scope_ab, node()),
- 0 = syn:registry_count(custom_scope_ab, SlaveNode1),
- 0 = syn:registry_count(custom_scope_ab, SlaveNode2),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, node()),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode1),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode2),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, node()]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode1]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode2]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, node()]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode1]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode2]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- %% register
- ok = syn:register(custom_scope_ab, "scope_a", Pid),
- ok = syn:register(custom_scope_ab, "scope_a_alias", PidWithMeta, <<"with_meta">>),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:register(custom_scope_bc, "scope_a", Pid),
- {'EXIT', {{invalid_scope, non_existent_scope}, _}} = catch syn:register(non_existent_scope, "scope_a", Pid),
- ok = rpc:call(SlaveNode2, syn, register, [custom_scope_bc, {remote_scoped_bc}, PidRemoteWithMetaOn1, <<"with_meta 1">>]),
- %% errors
- {error, taken} = syn:register(custom_scope_ab, "scope_a", PidWithMeta),
- {error, not_alive} = syn:register(custom_scope_ab, {"pid not alive"}, list_to_pid("<0.9999.0>")),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:register(custom_scope_bc, "scope_a_noscope", Pid),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:unregister(custom_scope_bc, "scope_a_noscope"),
- %% retrieve
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> syn:lookup("scope_a") end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode1, syn, lookup, ["scope_a"]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode2, syn, lookup, ["scope_a"]) end
- ),
- syn_test_suite_helper:assert_wait(
- {Pid, undefined},
- fun() -> syn:lookup(custom_scope_ab, "scope_a") end
- ),
- syn_test_suite_helper:assert_wait(
- {Pid, undefined},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a"]) end
- ),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a"]),
- syn_test_suite_helper:assert_wait(
- {PidWithMeta, <<"with_meta">>},
- fun() -> syn:lookup(custom_scope_ab, "scope_a_alias") end
- ),
- syn_test_suite_helper:assert_wait(
- {PidWithMeta, <<"with_meta">>},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a_alias"]) end
- ),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a_alias"]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, {remote_scoped_bc}),
- syn_test_suite_helper:assert_wait(
- {PidRemoteWithMetaOn1, <<"with_meta 1">>},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidRemoteWithMetaOn1, <<"with_meta 1">>},
- fun() -> rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]) end
- ),
- 2 = syn:registry_count(custom_scope_ab),
- 2 = syn:registry_count(custom_scope_ab, node()),
- 0 = syn:registry_count(custom_scope_ab, SlaveNode1),
- 0 = syn:registry_count(custom_scope_ab, SlaveNode2),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, node()),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode1),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode2),
- 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab]),
- 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, node()]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode1]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode2]),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, node()]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode1]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode2]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- %% re-register to edit meta
- ok = syn:register(custom_scope_ab, "scope_a_alias", PidWithMeta, <<"with_meta_updated">>),
- syn_test_suite_helper:assert_wait(
- {PidWithMeta, <<"with_meta_updated">>},
- fun() -> syn:lookup(custom_scope_ab, "scope_a_alias") end
- ),
- syn_test_suite_helper:assert_wait(
- {PidWithMeta, <<"with_meta_updated">>},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a_alias"]) end
- ),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a_alias"]),
- %% crash scope process to ensure that monitors get recreated
- syn_test_suite_helper:kill_process(syn_registry_custom_scope_ab),
- syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
- %% kill process
- syn_test_suite_helper:kill_process(Pid),
- syn_test_suite_helper:kill_process(PidWithMeta),
- %% unregister processes
- {error, undefined} = catch syn:unregister(<<"my proc with meta">>),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:unregister(custom_scope_bc, <<"my proc with meta">>),
- ok = rpc:call(SlaveNode1, syn, unregister, [custom_scope_bc, {remote_scoped_bc}]),
- %% retrieve
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> syn:lookup("scope_a") end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode1, syn, lookup, ["scope_a"]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode2, syn, lookup, ["scope_a"]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> syn:lookup(custom_scope_ab, "scope_a") end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a"]) end
- ),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a"]),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> syn:lookup(custom_scope_ab, "scope_a_alias") end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, "scope_a_alias"]) end
- ),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, lookup, [custom_scope_ab, "scope_a_alias"]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, {remote_scoped_bc}),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]) end
- ),
- syn_test_suite_helper:assert_wait(
- undefined,
- fun() -> rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, {remote_scoped_bc}]) end
- ),
- 0 = syn:registry_count(custom_scope_ab),
- 0 = syn:registry_count(custom_scope_ab, node()),
- 0 = syn:registry_count(custom_scope_ab, SlaveNode1),
- 0 = syn:registry_count(custom_scope_ab, SlaveNode2),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, node()),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode1),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc, SlaveNode2),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, node()]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode1]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_ab, SlaveNode2]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, node()]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode1]),
- {badrpc, {'EXIT', {{invalid_scope, custom_scope_ab}, _}}} = catch rpc:call(SlaveNode2, syn, registry_count, [custom_scope_ab, SlaveNode2]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- %% errors
- {error, undefined} = syn:unregister(custom_scope_ab, {invalid_name}),
- %% (simulate race condition)
- Pid1 = syn_test_suite_helper:start_process(),
- Pid2 = syn_test_suite_helper:start_process(),
- ok = syn:register(custom_scope_ab, <<"my proc">>, Pid1),
- syn_test_suite_helper:assert_wait(
- {Pid1, undefined},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_ab, <<"my proc">>]) end
- ),
- syn_registry:remove_from_local_table(custom_scope_ab, <<"my proc">>, Pid1),
- syn_registry:add_to_local_table(custom_scope_ab, <<"my proc">>, Pid2, undefined, 0, undefined),
- {error, race_condition} = rpc:call(SlaveNode1, syn, unregister, [custom_scope_ab, <<"my proc">>]).
- three_nodes_cluster_changes(Config) ->
- %% get slaves
- SlaveNode1 = proplists:get_value(slave_node_1, Config),
- SlaveNode2 = proplists:get_value(slave_node_2, Config),
- %% disconnect 1 from 2
- rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node()]),
- %% start syn on 1 and 2, nodes don't know of each other
- ok = rpc:call(SlaveNode1, syn, start, []),
- ok = rpc:call(SlaveNode2, syn, start, []),
- %% add custom scopes
- ok = rpc:call(SlaveNode1, syn, add_node_to_scopes, [[custom_scope_bc]]),
- ok = rpc:call(SlaveNode2, syn, add_node_to_scopes, [[custom_scope_bc]]),
- %% start processes
- PidRemoteOn1 = syn_test_suite_helper:start_process(SlaveNode1),
- PidRemoteOn2 = syn_test_suite_helper:start_process(SlaveNode2),
- %% register
- ok = rpc:call(SlaveNode1, syn, register, ["proc-1", PidRemoteOn1, "meta-1"]),
- ok = rpc:call(SlaveNode1, syn, register, ["proc-2", PidRemoteOn2, "meta-2"]),
- ok = rpc:call(SlaveNode1, syn, register, [custom_scope_bc, "BC-proc-1", PidRemoteOn1, "meta-1"]),
- ok = rpc:call(SlaveNode1, syn, register, [custom_scope_bc, "BC-proc-1 alias", PidRemoteOn1, "meta-1 alias"]),
- %% form full cluster
- ok = syn:start(),
- rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
- syn_test_suite_helper:wait_process_name_ready(syn_registry_default),
- {PidRemoteOn1, "meta-1"} = syn:lookup("proc-1"),
- {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, ["proc-1"]),
- {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode2, syn, lookup, ["proc-1"]),
- {PidRemoteOn2, "meta-2"} = syn:lookup("proc-2"),
- {PidRemoteOn2, "meta-2"} = rpc:call(SlaveNode1, syn, lookup, ["proc-2"]),
- {PidRemoteOn2, "meta-2"} = rpc:call(SlaveNode2, syn, lookup, ["proc-2"]),
- 2 = syn:registry_count(default),
- 0 = syn:registry_count(default, node()),
- 1 = syn:registry_count(default, SlaveNode1),
- 1 = syn:registry_count(default, SlaveNode2),
- 2 = rpc:call(SlaveNode1, syn, registry_count, [default]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [default, node()]),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode1]),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode2]),
- 2 = rpc:call(SlaveNode2, syn, registry_count, [default]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [default, node()]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode1]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode2]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1"),
- {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
- {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1 alias"),
- {PidRemoteOn1, "meta-1 alias"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
- {PidRemoteOn1, "meta-1 alias"} = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
- 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
- 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- 2 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
- 2 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- %% partial netsplit (1 cannot see 2)
- rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node()]),
- %% retrieve
- {PidRemoteOn1, "meta-1"} = syn:lookup("proc-1"),
- {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, ["proc-1"]),
- undefined = rpc:call(SlaveNode2, syn, lookup, ["proc-1"]),
- {PidRemoteOn2, "meta-2"} = syn:lookup("proc-2"),
- undefined = rpc:call(SlaveNode1, syn, lookup, ["proc-2"]),
- {PidRemoteOn2, "meta-2"} = rpc:call(SlaveNode2, syn, lookup, ["proc-2"]),
- 2 = syn:registry_count(default),
- 0 = syn:registry_count(default, node()),
- 1 = syn:registry_count(default, SlaveNode1),
- 1 = syn:registry_count(default, SlaveNode2),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [default]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [default, node()]),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode1]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode2]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [default]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [default, node()]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode1]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode2]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1"),
- {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
- undefined = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1 alias"),
- {PidRemoteOn1, "meta-1 alias"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
- undefined = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
- 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
- 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- %% re-join
- rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
- %% retrieve
- {PidRemoteOn1, "meta-1"} = syn:lookup("proc-1"),
- {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, ["proc-1"]),
- {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode2, syn, lookup, ["proc-1"]),
- {PidRemoteOn2, "meta-2"} = syn:lookup("proc-2"),
- {PidRemoteOn2, "meta-2"} = rpc:call(SlaveNode1, syn, lookup, ["proc-2"]),
- {PidRemoteOn2, "meta-2"} = rpc:call(SlaveNode2, syn, lookup, ["proc-2"]),
- 2 = syn:registry_count(default),
- 0 = syn:registry_count(default, node()),
- 1 = syn:registry_count(default, SlaveNode1),
- 1 = syn:registry_count(default, SlaveNode2),
- 2 = rpc:call(SlaveNode1, syn, registry_count, [default]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [default, node()]),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode1]),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode2]),
- 2 = rpc:call(SlaveNode2, syn, registry_count, [default]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [default, node()]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode1]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode2]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1"),
- {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
- {PidRemoteOn1, "meta-1"} = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1"]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:lookup(custom_scope_bc, "BC-proc-1 alias"),
- {PidRemoteOn1, "meta-1 alias"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
- {PidRemoteOn1, "meta-1 alias"} = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "BC-proc-1 alias"]),
- {'EXIT', {{invalid_scope, custom_scope_bc}, _}} = catch syn:registry_count(custom_scope_bc),
- 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
- 2 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- 2 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
- 2 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]).
- three_nodes_cluster_conflicts(Config) ->
- %% get slaves
- SlaveNode1 = proplists:get_value(slave_node_1, Config),
- SlaveNode2 = proplists:get_value(slave_node_2, Config),
- %% start syn on nodes
- ok = syn:start(),
- ok = rpc:call(SlaveNode1, syn, start, []),
- ok = rpc:call(SlaveNode2, syn, start, []),
- %% add custom scopes
- ok = rpc:call(SlaveNode1, syn, add_node_to_scopes, [[custom_scope_bc]]),
- ok = rpc:call(SlaveNode2, syn, add_node_to_scopes, [[custom_scope_bc]]),
- %% partial netsplit (1 cannot see 2)
- rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node()]),
- %% start conflict processes
- Pid2RemoteOn1 = syn_test_suite_helper:start_process(SlaveNode1),
- Pid2RemoteOn2 = syn_test_suite_helper:start_process(SlaveNode2),
- %% --> conflict by netsplit
- ok = rpc:call(SlaveNode1, syn, register, ["proc-confict", Pid2RemoteOn1, "meta-1"]),
- ok = rpc:call(SlaveNode2, syn, register, ["proc-confict", Pid2RemoteOn2, "meta-2"]),
- ok = rpc:call(SlaveNode1, syn, register, [custom_scope_bc, "proc-confict", Pid2RemoteOn1, "meta-1"]),
- ok = rpc:call(SlaveNode2, syn, register, [custom_scope_bc, "proc-confict", Pid2RemoteOn2, "meta-2"]),
- %% re-join
- rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
- %% retrieve
- {Pid2RemoteOn2, "meta-2"} = syn:lookup("proc-confict"),
- syn_test_suite_helper:assert_wait(
- {Pid2RemoteOn2, "meta-2"},
- fun() -> rpc:call(SlaveNode1, syn, lookup, ["proc-confict"]) end
- ),
- syn_test_suite_helper:assert_wait(
- {Pid2RemoteOn2, "meta-2"},
- fun() -> rpc:call(SlaveNode2, syn, lookup, ["proc-confict"]) end
- ),
- 1 = syn:registry_count(default),
- 0 = syn:registry_count(default, node()),
- 0 = syn:registry_count(default, SlaveNode1),
- 1 = syn:registry_count(default, SlaveNode2),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [default]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [default, node()]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode1]),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [default, SlaveNode2]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [default]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [default, node()]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode1]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [default, SlaveNode2]),
- {Pid2RemoteOn2, "meta-2"} = rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, "proc-confict"]),
- {Pid2RemoteOn2, "meta-2"} = rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, "proc-confict"]),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, node()]),
- 0 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 1 = rpc:call(SlaveNode1, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, node()]),
- 0 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode1]),
- 1 = rpc:call(SlaveNode2, syn, registry_count, [custom_scope_bc, SlaveNode2]),
- %% --> conflict by race condition
- Pid1 = syn_test_suite_helper:start_process(),
- Pid2 = syn_test_suite_helper:start_process(SlaveNode1),
- rpc:call(SlaveNode1, syn_registry, add_to_local_table, [default, <<"my proc">>, Pid2, "meta-2", erlang:system_time(), undefined]),
- ok = syn:register(<<"my proc">>, Pid1, "meta-1"),
- {Pid1, "meta-1"} = syn:lookup(<<"my proc">>),
- syn_test_suite_helper:assert_wait(
- {Pid1, "meta-1"},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [<<"my proc">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- {Pid1, "meta-1"},
- fun() -> rpc:call(SlaveNode2, syn, lookup, [<<"my proc">>]) end
- ),
- true = is_process_alive(Pid1),
- false = rpc:call(SlaveNode1, erlang, is_process_alive, [Pid2]),
- PidCustom1 = syn_test_suite_helper:start_process(SlaveNode1),
- PidCustom2 = syn_test_suite_helper:start_process(SlaveNode2),
- rpc:call(SlaveNode2, syn_registry, add_to_local_table, [custom_scope_bc, <<"my proc">>, PidCustom2, "meta-2", erlang:system_time(), undefined]),
- ok = rpc:call(SlaveNode1, syn, register, [custom_scope_bc, <<"my proc">>, PidCustom1, "meta-1"]),
- syn_test_suite_helper:assert_wait(
- {PidCustom1, "meta-1"},
- fun() -> rpc:call(SlaveNode1, syn, lookup, [custom_scope_bc, <<"my proc">>]) end
- ),
- syn_test_suite_helper:assert_wait(
- {PidCustom1, "meta-1"},
- fun() -> rpc:call(SlaveNode2, syn, lookup, [custom_scope_bc, <<"my proc">>]) end
- ),
- true = rpc:call(SlaveNode1, erlang, is_process_alive, [PidCustom1]),
- false = rpc:call(SlaveNode2, erlang, is_process_alive, [PidCustom2]).
- three_nodes_custom_event_handler_reg_unreg(Config) ->
- %% get slaves
- SlaveNode1 = proplists:get_value(slave_node_1, Config),
- SlaveNode2 = proplists:get_value(slave_node_2, Config),
- %% add custom handler
- syn_test_suite_helper:use_custom_handler(),
- rpc:call(SlaveNode1, syn_test_suite_helper, use_custom_handler, []),
- rpc:call(SlaveNode2, syn_test_suite_helper, use_custom_handler, []),
- %% start syn on nodes
- ok = syn:start(),
- ok = rpc:call(SlaveNode1, syn, start, []),
- ok = rpc:call(SlaveNode2, syn, start, []),
- %% init
- CurrentNode = node(),
- %% start process
- Pid = syn_test_suite_helper:start_process(),
- %% ---> on registration
- ok = syn:register("proc-handler", Pid, {recipient, self(), <<"meta">>}),
- %% check callbacks called
- syn_test_suite_helper:assert_received_messages([
- {on_process_registered, CurrentNode, default, "proc-handler", Pid, <<"meta">>},
- {on_process_registered, SlaveNode1, default, "proc-handler", Pid, <<"meta">>},
- {on_process_registered, SlaveNode2, default, "proc-handler", Pid, <<"meta">>}
- ]),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% ---> on meta update
- ok = syn:register("proc-handler", Pid, {recipient, self(), <<"new-meta">>}),
- %% check callbacks called
- syn_test_suite_helper:assert_received_messages([
- {on_process_registered, CurrentNode, default, "proc-handler", Pid, <<"new-meta">>},
- {on_process_registered, SlaveNode1, default, "proc-handler", Pid, <<"new-meta">>},
- {on_process_registered, SlaveNode2, default, "proc-handler", Pid, <<"new-meta">>}
- ]),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% ---> on unregister
- ok = syn:unregister("proc-handler"),
- %% check callbacks called
- syn_test_suite_helper:assert_received_messages([
- {on_process_unregistered, CurrentNode, default, "proc-handler", Pid, <<"new-meta">>},
- {on_process_unregistered, SlaveNode1, default, "proc-handler", Pid, <<"new-meta">>},
- {on_process_unregistered, SlaveNode2, default, "proc-handler", Pid, <<"new-meta">>}
- ]),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% clean & check
- syn_test_suite_helper:kill_process(Pid),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% ---> after a netsplit
- PidRemoteOn1 = syn_test_suite_helper:start_process(SlaveNode1),
- syn:register(remote_on_1, PidRemoteOn1, {recipient, self(), <<"netsplit">>}),
- %% check callbacks called
- syn_test_suite_helper:assert_received_messages([
- {on_process_registered, CurrentNode, default, remote_on_1, PidRemoteOn1, <<"netsplit">>},
- {on_process_registered, SlaveNode1, default, remote_on_1, PidRemoteOn1, <<"netsplit">>},
- {on_process_registered, SlaveNode2, default, remote_on_1, PidRemoteOn1, <<"netsplit">>}
- ]),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% partial netsplit (1 cannot see 2)
- rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node()]),
- %% check callbacks called
- syn_test_suite_helper:assert_received_messages([
- {on_process_unregistered, SlaveNode2, default, remote_on_1, PidRemoteOn1, <<"netsplit">>}
- ]),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% ---> after a re-join
- %% re-join
- rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
- %% check callbacks called
- syn_test_suite_helper:assert_received_messages([
- {on_process_registered, SlaveNode2, default, remote_on_1, PidRemoteOn1, <<"netsplit">>}
- ]),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% clean
- syn_test_suite_helper:kill_process(PidRemoteOn1),
- %% check callbacks called
- syn_test_suite_helper:assert_received_messages([
- {on_process_unregistered, CurrentNode, default, remote_on_1, PidRemoteOn1, <<"netsplit">>},
- {on_process_unregistered, SlaveNode1, default, remote_on_1, PidRemoteOn1, <<"netsplit">>},
- {on_process_unregistered, SlaveNode2, default, remote_on_1, PidRemoteOn1, <<"netsplit">>}
- ]),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% ---> after a conflict resolution
- %% partial netsplit (1 cannot see 2)
- rpc:call(SlaveNode1, syn_test_suite_helper, disconnect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node()]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node()]),
- %% start conflict processes
- Pid2RemoteOn1 = syn_test_suite_helper:start_process(SlaveNode1),
- Pid2RemoteOn2 = syn_test_suite_helper:start_process(SlaveNode2),
- ok = rpc:call(SlaveNode1, syn, register, ["proc-confict", Pid2RemoteOn1, {recipient, self(), <<"meta-1">>}]),
- ok = rpc:call(SlaveNode2, syn, register, ["proc-confict", Pid2RemoteOn2, {recipient, self(), <<"meta-2">>}]),
- %% check callbacks called
- syn_test_suite_helper:assert_received_messages([
- {on_process_registered, CurrentNode, default, "proc-confict", Pid2RemoteOn1, <<"meta-1">>},
- {on_process_unregistered, CurrentNode, default, "proc-confict", Pid2RemoteOn1, <<"meta-1">>},
- {on_process_registered, CurrentNode, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>},
- {on_process_registered, SlaveNode1, default, "proc-confict", Pid2RemoteOn1, <<"meta-1">>},
- {on_process_registered, SlaveNode2, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>}
- ]),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% re-join
- rpc:call(SlaveNode1, syn_test_suite_helper, connect_node, [SlaveNode2]),
- syn_test_suite_helper:assert_cluster(node(), [SlaveNode1, SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode1, [node(), SlaveNode2]),
- syn_test_suite_helper:assert_cluster(SlaveNode2, [node(), SlaveNode1]),
- %% check callbacks called
- syn_test_suite_helper:assert_received_messages([
- {on_process_unregistered, SlaveNode1, default, "proc-confict", Pid2RemoteOn1, <<"meta-1">>},
- {on_process_registered, SlaveNode1, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>}
- ]),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% clean
- syn_test_suite_helper:kill_process(Pid2RemoteOn1),
- syn_test_suite_helper:kill_process(Pid2RemoteOn2),
- %% check callbacks called
- syn_test_suite_helper:assert_received_messages([
- {on_process_unregistered, CurrentNode, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>},
- {on_process_unregistered, SlaveNode1, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>},
- {on_process_unregistered, SlaveNode2, default, "proc-confict", Pid2RemoteOn2, <<"meta-2">>}
- ]),
- syn_test_suite_helper:assert_empty_queue(self()),
- %% ---> don't call on monitor rebuild
- %% crash the scope process on local
- syn_test_suite_helper:kill_process(syn_registry_default),
- %% no messages
- syn_test_suite_helper:assert_wait(
- ok,
- fun() -> syn_test_suite_helper:assert_empty_queue(self()) end
- ).
|