WIP: failing test for append while wedged

This commit is contained in:
Scott Lystig Fritchie 2015-05-08 18:22:44 +09:00
parent 7906e6c235
commit 376c4a9ae1

View file

@ -82,9 +82,15 @@ partial_stop_restart2() ->
WedgeStatus = fun({_,#p_srvr{address=Addr, port=TcpPort}}) -> WedgeStatus = fun({_,#p_srvr{address=Addr, port=TcpPort}}) ->
machi_flu1_client:wedge_status(Addr, TcpPort) machi_flu1_client:wedge_status(Addr, TcpPort)
end, end,
Append = fun({_,#p_srvr{address=Addr, port=TcpPort}}) ->
machi_flu1_client:append_chunk(Addr, TcpPort,
?DUMMY_PV1_EPOCH,
<<"prefix">>, <<"data">>)
end,
try try
[Start(P) || P <- Ps], [Start(P) || P <- Ps],
[{ok, {true, _}} = WedgeStatus(P) || P <- Ps], % all are wedged [{ok, {true, _}} = WedgeStatus(P) || P <- Ps], % all are wedged
[bummer = Append(P) || P <- Ps], % all are wedged
[machi_chain_manager1:set_chain_members(ChMgr, Dict) || [machi_chain_manager1:set_chain_members(ChMgr, Dict) ||
ChMgr <- ChMgrs ], ChMgr <- ChMgrs ],