anchor.diff:  
   -define(assert_received(ResponsePattern), receive
                                               ResponsePattern -> ok
  -                                          after 200
  +                                          after 1000
                                               -> ?assert(false)
                                             end).
   
  
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:   end,
  
    SendWriteEvents(),
    count_answers(8),
  
    MessagesNum = 300,
  