anchor.diff:  
   %%
   %% Tests of traffic between two Diameter nodes, one client, one server.
  +%% The traffic isn't meant to be sensible, just to exercise code.
   %%
   
   -module(diameter_traffic_SUITE).
  
positive.code: request(['ACR' | #{'Accounting-Record-Number' := 4}],
          #diameter_caps{origin_host = {OH, _},
                         origin_realm = {OR, _}}) ->
      Ans = ['answer-message', {'Result-Code', ?TOO_BUSY},
                               {'Origin-Host', OH},
                               {'Origin-Realm', OR}],
      {reply, Ans};
  
  %% send_proxy_info
  
negative.code:     Req = ['ACR', {'Accounting-Record-Type', ?EVENT_RECORD},
                    {'Accounting-Record-Number', 4}],
  
      ['answer-message' | #{'Result-Code' := ?TOO_BUSY,
                            'AVP' := [OLR]}]
          = call(Config, Req),
  
      #diameter_avp{name = 'OC-OLR',
                    value = #{'OC-Sequence-Number' := 1,
                              'OC-Report-Type' := 0,  %% HOST_REPORT
                              'OC-Reduction-Percentage' := [25],
                              'OC-Validity-Duration' := [60],
                              'AVP' := [OSF]}}
          = OLR,
      #diameter_avp{name = 'OC-Supported-Features',
                    value = #{} = Fs}
          = OSF,
      0 = maps:size(Fs).
  
  %% Send a 3xxx Experimental-Result in an answer not setting the E-bit
  %% and missing a Result-Code.
  