greg/machi
1
0
Fork 0
Code Issues 11 Pull requests 1 Projects Releases Packages Wiki Activity Actions

WIP: new test fails: check for not wedged

Browse source
This commit is contained in:
Scott Lystig Fritchie 2015-05-08 17:07:03 +09:00
parent d6d003618d
commit ca854373f8
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
test/machi_flu_psup_test.erl
View file

@ -74,18 +74,21 @@ partial_stop_restart2() ->
Dict = orddict:from_list(Ps),
[os:cmd("rm -rf " ++ P#p_srvr.props) || {_,P} <- Ps],
{ok, SupPid} = machi_flu_sup:start_link(),
Start = fun({_,P}) ->
#p_srvr{name=Name, port=Port, props=Dir} = P,
{ok, _} = machi_flu_psup:start_flu_package(
Name, Port, Dir, [{active_mode,false}])
end,
WedgeStatus = fun({_,#p_srvr{address=Addr, port=TcpPort}}) ->
machi_flu1_client:wedge_status(Addr, TcpPort)
end,
try
Start = fun({_,P}) ->
#p_srvr{name=Name, port=Port, props=Dir} = P,
{ok, _} = machi_flu_psup:start_flu_package(
Name, Port, Dir, [{active_mode,false}])
end,
[Start(P) || P <- Ps],
%% TODO: Confirm that all FLUs are wedged
[{ok, {true, _}} = WedgeStatus(P) || P <- Ps], % all are wedged
[machi_chain_manager1:set_chain_members(ChMgr, Dict) ||
ChMgr <- ChMgrs ],
%% TODO: Confirm that all FLUs are wedged
[{ok, {true, _}} = WedgeStatus(P) || P <- Ps], % all are wedged
{_,_,_} = machi_chain_manager1:test_react_to_env(hd(ChMgrs)),
[begin
@ -106,6 +109,7 @@ partial_stop_restart2() ->
end || ProjType <- [public, private], PStore <- PStores ],
Epoch_m = Proj_m#projection_v1.epoch_number,
%% TODO: Confirm that all FLUs are *not* wedged
[{ok, {false, _}} = WedgeStatus(P) || P <- Ps], % all are wedged
%% Stop all but 'a'.
[ok = machi_flu_psup:stop_flu_package(Name) || {Name,_} <- tl(Ps)],