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:     SixPeerContact   = {self(), 2#1011},
      SevenPeerContact = {self(), 2#1010},
      put_contacts(KbucketPid, [FourPeerContact, FivePeerContact, SixPeerContact]),
      meck:expect(peer, check_link, ?two_any_args(?return(ok))),
  
      ok = kbucket:put(KbucketPid, SevenPeerContact),
  
      ExpectedBucket = [FourPeerContact, FivePeerContact, SixPeerContact],
      [?_assertEqual(ExpectedBucket, kbucket:get(KbucketPid, 2))].
  
  should_returns_up_to_k_contacts_closest_to_a_key({KbucketPid, _}) ->
      ThreePeerContact  = {self(), 2#1001},
  