anchor.diff:  repeat(_Fun, N) when is_integer(N), N =< 0 ->
       ok;
   repeat(Fun, N) when is_integer(N)  ->
  -    Fun(),
  +    Fun(N),
       repeat(Fun, N-1).
  
positive.code:      busy_dist_down_signal,
       busy_dist_spawn_reply_signal,
       busy_dist_unlink_ack_signal,
       monitor_order].
  
  %% Test that exit signals and messages are received in correct order
  xm_sig_order(Config) when is_list(Config) ->
      LNode = node(),
      repeat(fun () -> xm_sig_order_test(LNode) end, 1000),
      {ok, Peer, RNode} = ?CT_PEER(),
      repeat(fun () -> xm_sig_order_test(RNode) end, 1000),
      peer:stop(Peer),
      ok.
      
  
negative.code:          busy_dist_down_signal/1,
           busy_dist_spawn_reply_signal/1,
           busy_dist_unlink_ack_signal/1,
           monitor_order/1,
           monitor_named_order_local/1,
           monitor_named_order_remote/1]).
  
  
  init_per_testcase(Func, Config) when is_atom(Func), is_list(Config) ->
      [{testcase, Func}|Config].
  