anchor.diff:      timer:sleep(100),
       receive
           _Msg ->
  -            Count = case erlang:get(count) of
  -                        undefined -> 0;
  -                        Val -> Val
  -                    end,
  -            put(count, Count+1),
  +            update_msg_counter(),
               fake_loop_slow()
       end.
   
  
positive.code: 
  -ifdef(TEST).
  
  fake_loop() ->
      receive
          block ->
  
negative.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
                }
  