anchor.diff:  send_invalid_reject(Config) ->
       Req = ['STR', {'Termination-Cause', ?USER_MOVED}],
   
  -    #'diameter_base_answer-message'{'Result-Code' = ?TOO_BUSY}
  +    ?answer_message(?TOO_BUSY)
           = call(Config, Req).
   
   %% Send something long that will be fragmented by TCP.
   send_long(Config) ->
       Req = ['STR', {'Termination-Cause', ?LOGOUT},
                     {'User-Name', [lists:duplicate(1 bsl 20, $X)]}],
  -    #diameter_base_STA{'Result-Code' = ?SUCCESS}
  +    ['STA', _SessionId, {'Result-Code', ?SUCCESS} | _]
           = call(Config, Req).
   
   %% Send something for which pick_peer finds no suitable peer.
  
positive.code: send_any_2(Config) ->
      Req = ['STR', {'Termination-Cause', ?LOGOUT},
                    {'Destination-Host', [?HOST(?SERVER, "unknown.org")]}],
      #'diameter_base_answer-message'{'Result-Code' = ?UNABLE_TO_DELIVER}
          = call(Config, Req, [{filter, {any, [host, realm]}}]).
  
  %% Send with a conjunctive filter.
  send_all_1(Config) ->
      Req = ['STR', {'Termination-Cause', ?LOGOUT}],
      Realm = lists:foldr(fun(C,A) -> [C,A] end, [], ?REALM),
      #diameter_base_STA{'Result-Code' = ?SUCCESS}
          = call(Config, Req, [{filter, {all, [{host, any},
                                               {realm, Realm}]}}]).
  send_all_2(Config) ->
  
negative.code: %% only the return value from the prepare_request callback being
  %% significant.
  send_anything(Config) ->
      ['STA', _SessionId, {'Result-Code', ?SUCCESS} | _]
          = call(Config, anything).
  
  %% ===========================================================================
  