anchor.diff:               exit(ProxyPid, kill)
        end,
        [
  -      fun({VnodePid, ProxyPid}) ->
  +      fun({_VnodePid, ProxyPid}) ->
                 {"should not discard in normal operation", timeout, 60,
                  fun() ->
  -                       [ProxyPid ! hello || _ <- lists:seq(1, 50000)],
  +                       ToSend = ?DEFAULT_OVERLOAD_THRESHOLD-2,
  +                       [ProxyPid ! hello || _ <- lists:seq(1, ToSend)],
                          %% synchronize on the mailbox
  -                       Reply = gen:call(ProxyPid, '$vnode_proxy_call', sync, infinity),
  -                       ?assertEqual({ok, ok}, Reply),
  -                       VnodePid ! {get_count, self()},
  +                       ProxyPid ! {get_count, self()},
                          receive
                              {count, Count} ->
  -                               %% 50000 messages + 1 unanswered vnode_proxy_ping
  -                               ?assertEqual(50001, Count)
  +                               %% ToSend messages + 1 unanswered vnode_proxy_ping
  +                               ?assertEqual(ToSend+1, Count)
                          end
                  end
                 }
  
positive.code: 
  -ifdef(TEST).
  
  fake_loop() ->
      receive
          block ->
  
negative.code:     timer:sleep(100),
      receive
          _Msg ->
              update_msg_counter(),
              fake_loop_slow()
      end.
  
  