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