anchor.diff:              end, Commands),
   
               %% Add a command to resolve all partitions with a heal.
  -            ResolveCommands = case ?PERFORM_FAULT_INJECTION of 
  +            ResolveCommands = case fault_injection_enabled() of 
                   true ->
                       case rand:uniform(10) rem 2 =:= 0 of 
                           true ->
  
positive.code: command(State) -> 
      %% Cluster maintenance commands.
      ClusterCommands = lists:flatmap(fun(Command) -> 
          case ?PERFORM_LEAVES_AND_JOINS of 
              true ->
                  [{1, Command}];
              false ->
  
negative.code:         _ ->
              timer:sleep(Delay),
              wait_until_result(Fun, Result, Retry-1, Delay)
      end.
  
  %% @private
  fault_injection_enabled() ->
      case os:getenv("FAULT_INJECTION") of 
          false ->
              false;
          _ ->
              true
      end.            
  
  %% @private
  membership_changes_enabled() ->
      case os:getenv("MEMBERSHIP_CHANGES") of 
          false ->
              false;
          _ ->
              true
      end.