anchor.diff:      _ = file:del_dir(DataDir),
       ok.
   
  -xxx_setup_test_flu(RegName, TcpPort, DataDir) ->
  -    xxx_setup_test_flu(RegName, TcpPort, DataDir, []).
  -
  -xxx_setup_test_flu(RegName, TcpPort, DataDir, Props) ->
  -    case proplists:get_value(save_data_dir, Props) of
  -        true ->
  -            ok;
  -        _ ->
  -            clean_up_data_dir(DataDir)
  -    end,
  -
  -    {ok, FLU1} = ?FLU:start_link([{RegName, TcpPort, DataDir}|Props]),
  -    %% TODO the process structuring/racy-ness of the various processes
  -    %% of the FLU needs to be deterministic to remove this sleep race
  -    %% "prevention".
  -    timer:sleep(10),
  -    FLU1.
  -
   start_flu_package(RegName, TcpPort, DataDir) ->
       start_flu_package(RegName, TcpPort, DataDir, []).
   
  
positive.code: witness_test() ->
      Host = "localhost",
      TcpPort = 32961,
      DataDir = "./data",
  
      Opts = [{initial_wedged, false}, {witness_mode, true}],
      start_flu_package(projection_test_flu, TcpPort, DataDir, Opts),
  
negative.code:     machi_flu_psup:stop_flu_package(FluName),
      Pid = whereis(machi_sup),
      exit(Pid, normal),
      machi_util:wait_for_death(Pid, 100).
  
  maybe_start_sup() ->
      case whereis(machi_sup) of
  