anchor.diff:  
   test_read_latest_public_projection(Pid, ReadRepairP) ->
       gen_server:call(Pid, {test_read_latest_public_projection, ReadRepairP}, infinity).
  +
  +test_react_to_env(Pid) ->
  +    gen_server:call(Pid, {test_react_to_env}, infinity).
  +
   -endif. % TEST
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code:     Rs = [perhaps_call_t(S, Partitions, FLU, fun() -> DoIt(FLU) end) ||
               FLU <- All_list],
      FLUsRs = lists:zip(All_list, Rs),
      UnwrittenP = ([x || error_unwritten <- Rs] == []),
      Ps = [Proj || {_FLU, Proj} <- FLUsRs, is_record(Proj, projection)],
      if UnwrittenP ->
              {needs_repair, FLUsRs, [flarfus], S2};
         true ->
              [{_Rank, BestProj}|Rest] = rank_and_sort_projections(
                                                                Ps, CurrentProj),
              UnanimousTag = if Rest == [] -> unanimous;
                                true       -> not_unanimous
                             end,
              Extra = [{all_members_replied, length(Rs) == length(All_list)}],
              Best_FLUs = [FLU || {FLU, Projx} <- FLUsRs, Projx == BestProj],
  
negative.code:     {noreply, S};
  handle_cast({test_calc_proposed_projection}, S) ->
      {Proj, S2} = calc_projection(S, [{author_proc, cast}]),
      %% ?Dw({?LINE,make_projection_summary(Proj)}),
      {noreply, S2#ch_mgr{proj_proposed=Proj}};
  handle_cast(_Cast, S) ->
      ?D({cast_whaaaaaaaaaaa, _Cast}),
  