anchor.diff:                                              end),
   
       kbucket:refresh(KbucketPid),
  +
       timer:sleep(50),
  -    [?_assertEqual([ZeroBucketContact], kbucket:get(KbucketPid, 0)),
  -     ?_assertEqual([OneBucketContact], kbucket:get(KbucketPid, 1)),
  -     ?_assertEqual([TwoBucketContact], kbucket:get(KbucketPid, 2)),
  +    [?_assertEqual([ZeroBucketContact],  kbucket:get(KbucketPid, 0)),
  +     ?_assertEqual([OneBucketContact],   kbucket:get(KbucketPid, 1)),
  +     ?_assertEqual([TwoBucketContact],   kbucket:get(KbucketPid, 2)),
        ?_assertEqual([ThreeBucketContact], kbucket:get(KbucketPid, 3))].
   
   put_contacts(KbucketPid, []) ->
  
positive.code:     OnePeerContact    = {self(), 2#1011},
      put_contacts(KbucketPid, [OnePeerContact, TwoPeerContact, ThreePeerContact]),
  
      [?_assertEqual([OnePeerContact, TwoPeerContact, ThreePeerContact],
                     kbucket:closest_contacts(KbucketPid, 2#1010))].
  
  should_fill_the_results_with_other_contacts_if_the_closest_bucket_is_not_full({KbucketPid, _}) ->
      FivePeerContact   = {self(), 2#1111},
  
negative.code:     TwoPeerContact    = {self(), 2#1000},
      put_contacts(KbucketPid, [TwoPeerContact, ThreePeerContact, FivePeerContact]),
  
      ClosestContacts = kbucket:closest_contacts(KbucketPid, 2#1010),
  
      [?_assertEqual([TwoPeerContact, ThreePeerContact, FivePeerContact], ClosestContacts)].
  
  should_search_a_key_within_each_bucket_and_refresh_its_content({KbucketPid, Peer}) ->
      ZeroBucketContact  = {self(), 12},
      OneBucketContact   = {self(), 15},
      TwoBucketContact   = {self(),  9},
      ThreeBucketContact = {self(),  5},
      AllContacts = [ZeroBucketContact, OneBucketContact, TwoBucketContact, ThreeBucketContact],
      meck:expect(peer, iterative_find_peers, fun(_, Key) ->
                                                  case Key of
  