anchor.diff:    end,
   
     SendWriteEvents(),
  -  timer:sleep(1000),
     count_answers(8),
   
     MessagesNum = 300,
  
positive.code: 
    WriteEvent = #write_event{user_id = "1234", ans_pid = self()},
  
    send_event(WriteEvent, CCM),
    assert_nothing_received(CCM),
  
  
    EventHandler = fun(#write_event{user_id = UserId, ans_pid = AnsPid}) ->
      AnsPid ! {ok, standard, self()}
    end,
    subscribe_for_write_events(CCM, standard, EventHandler),
    timer:sleep(100),
    send_event(WriteEvent, CCM),
    timer:sleep(50),
    ?assert_received({ok, standard, _}),
    assert_nothing_received(CCM),
  
  
negative.code: 
  -define(assert_received(ResponsePattern), receive
                                              ResponsePattern -> ok
                                            after 1000
                                              -> ?assert(false)
                                            end).
  
  