anchor.diff:       {group, tester_tests},
        {group, kill_tests},
        {group, add_tests},
  -     {group, rm_loop_tests}
  +     {group, rm_loop_tests},
  +     {group, partition_tests}
        ].
   
   suite() -> [ {timetrap, {seconds, 40}} ].
   
   group(tester_tests) ->
  +    [{timetrap, {seconds, 400}}];
  +group(partition_tests) ->
       [{timetrap, {seconds, 400}}];
   group(_) ->
       suite().
  
positive.code:     end,
      LeaseId = l_on_cseq:id(PredRange),
      {ok, Lease} = l_on_cseq:read(LeaseId),
      Result = {qread_done, fake_reqid, fake_round, Lease},
      Msg = {read_after_rm_change, PredRange, Result},
      TakeoversBefore = rm_leases:get_takeovers(RMLeasesPid),
      ct:pal("+wait_for_messages_after ~w", [gb_trees:to_list(TakeoversBefore)]),
      wait_for_messages_after(RMLeasesPid, [get_node_for_new_neighbor], 
                              fun () -> 
                                      comm:send_local(RMLeasesPid, Msg) 
                              end),
      ct:pal("-wait_for_messages_after ~w", [gb_trees:to_list(TakeoversBefore)]),
  
  
      AllRMMsgs = [read_after_rm_change, takeover_after_rm_change, 
                   merge_after_rm_change, merge_after_leave, 
                   get_node_for_new_neighbor, get_takeovers],
      ct:pal("+test_quiescence"),
      test_quiescence(RMLeasesPid, AllRMMsgs, 100),
      ct:pal("-test_quiescence"),
      TakeoversBefore = rm_leases:get_takeovers(RMLeasesPid),
  
      %es sollte wieder ruhe eintreten
      %    - takeovers vorher und hinterher leer!
  
      %timer:sleep(15000),
      ok.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %
  
negative.code: -include("client_types.hrl").
  
  groups() ->
      [{tester_tests,   [sequence], [
                                    tester_type_check_rm_leases
                                ]},
       {kill_tests,     [sequence], [
                                    test_single_kill,
                                    test_double_kill
                                 ]},
       {add_tests,      [sequence], [
                                    test_single_add,
                                    test_double_add,
                                    test_triple_add
                                 ]},
       {partition_tests,[sequence], [
                                     test_network_partition
                                 ]},
       {rm_loop_tests,  [sequence], [
                                    propose_new_neighbor
                                   ]}
      ].
  