anchor.diff:      {ok, M0} = ?MGR:start_link(I_represent, [a,b], {1,2,3}, 50, 50, I_am),
       try
           ok = cl_write_current_projection(M0),
  -        {ok, P1} = sync_projection_calculation(M0),
  +        {ok, P1} = test_projection_calculation(M0),
           P1a = P1#projection{down=[b], upi=[a], dbg=[{hackhack, ?LINE}]},
           P1b = P1#projection{down=[a], upi=[b], dbg=[{hackhack, ?LINE}]},
           P1Epoch = P1#projection.epoch_number,
  
positive.code: handle_call({calculate_projection_internal_old}, _From, S) ->
      {Reply, S2} = calc_projection(S, [{author_proc, call}]),
      {reply, Reply, S2};
  handle_call({sync_projection_calculation}, _From, S) ->
      {P, S2} = calc_projection(S, [{author_proc, cast}]),
      {reply, {ok, P}, S2};
  handle_call({cl_write_current_projection}, _From, S) ->
      {Res, S2} = do_cl_write_current_proj(S),
      {reply, Res, S2};
  
negative.code:         ok = cl_write_current_projection(M0),
          _ = trigger_projection_calculation(M0),
          pong = ping(M0),
          _Pa = test_projection_calculation(M0),
          ok
      after
          ok = ?MGR:stop(M0),
  