gistfile1.hrl

check_nodes() ->
  ErlangNodes = lists:usort([node() | erlang:nodes()]),
  {ok, MemNodeList} = membership2:nodes(),
  MemNodes = lists:usort(MemNodeList),
  {ok, PMap} = partitions(),
  {PMapNodeList, _PMapPartList} = lists:unzip(PMap),
  PMapNodes = lists:usort(PMapNodeList),
  case ErlangNodes =:= MemNodes andalso
    ErlangNodes =:= PMapNodes andalso
    MemNodes =:= PMapNodes of
    true -> true;
    _ ->
      Msg = "Node Lists do not match.~n"
        "Erlang Nodes     : ~p~n"
        "Membership Nodes : ~p~n"
        "PMap Nodes       : ~p~n",
      Lst = [ErlangNodes, MemNodes, PMapNodes],
      ?LOG_ERROR(Msg, Lst),
      io:format(Msg, Lst),
      false
    end.