anchor.diff:                           end
                    end) || _ <- lists:seq(1,2)],
   
  -    [receive
  -         {monitor, _Sender, busy_dist_port, _Info} ->
  -             ok
  -     end || _ <- lists:seq(1,10)],
  +    wait_for_busy_dist(2 * 60 * 1000, 10),
   
       {TS, Times} =
           timer:tc(fun() ->
  
positive.code: 
      case {lists:max(Times), lists:min(Times)} of
          {Max, Min} when Max * 0.25 > Min, BuildType =:= opt ->
              ct:fail({incorrect_latency, IndexTimes});
          _ ->
              ok
      end.
  
negative.code: %% The message_latency_large tests that small distribution messages are
  %% not blocked by other large distribution messages. Basically it tests
  %% that fragmentation of distribution messages works.
  %%
  %% Because of large problems to get reliable values from these testcases
  %% they no longer fail when the latency is incorrect. However, they are
  %% kept as they continue to find bugs in the distribution implementation.
  message_latency_large_message(Config) when is_list(Config) ->
      measure_latency_large_message(?FUNCTION_NAME, fun(Dropper, Payload) -> Dropper ! Payload end).
  
  