anchor.diff:                         VnodePid ! {get_count, self()},
                          receive
                              {count, Count} ->
  -                               %% Threshold + 1 unanswered vnode_proxy_ping
  -                               ?assertEqual(?DEFAULT_OVERLOAD_THRESHOLD + 1, Count)
  +                               %% Threshold + 10 unanswered vnode_proxy_ping
  +                               ?assertEqual(?DEFAULT_OVERLOAD_THRESHOLD + 10, Count)
                          end
                  end
                 }
  
positive.code:              exit(ProxyPid, kill)
       end,
       [
        fun({_VnodePid, ProxyPid}) ->
                {"should not discard in normal operation", timeout, 60,
                 fun() ->
                         ToSend = ?DEFAULT_OVERLOAD_THRESHOLD-2,
                         [ProxyPid ! hello || _ <- lists:seq(1, ToSend)],
                         %% synchronize on the mailbox
                         ProxyPid ! {get_count, self()},
                         receive
                             {count, Count} ->
                                 %% ToSend messages + 1 unanswered vnode_proxy_ping
                                 ?assertEqual(ToSend+1, Count)
                         end
                 end
                }
        end,
        fun({VnodePid, ProxyPid}) ->
                {"should discard during overflow", timeout, 60,
                 fun() ->
  
negative.code:                        %% reasonable
                         {message_queue_len, L} =
                             erlang:process_info(VnodePid, message_queue_len),
                         %% Threshold + 2 unanswered vnode_proxy_ping (one
                         %% for first ping, second after process_info check)
                         ?assert(L =< (?DEFAULT_OVERLOAD_THRESHOLD + 2))
                 end
                }
        end
  