anchor.diff:  
     timer:sleep(800).
   
  -
  -subscribe_for_events(EventType, Node, EventHandler) ->
  -  EventItem = #event_handler_item{processing_method = standard, handler_fun = EventHandler},
  -  gen_server:call({?Dispatcher_Name, Node}, {rule_manager, 1, self(), {add_event_handler, {EventType, EventItem}}}),
  -
  -  receive
  -    ok -> ok
  -  after 400 ->
  -    ?assert(false)
  -  end,
  -
  -  timer:sleep(800).
  -
  -
   repeat(N, F) -> for(1, N, F).
   for(N, N, F) -> [F()];
   for(I, N, F) -> [F() | for(I + 1, N, F)].
  
positive.code:   end,
  
    SendWriteEvents(),
    timer:sleep(1000),
    count_answers(8),
  
    MessagesNum = 300,
  
negative.code: 
  -define(assert_received(ResponsePattern), receive
                                              ResponsePattern -> ok
                                            after 1000
                                              -> ?assert(false)
                                            end).
  
  