anchor.diff:      Req = ['ACR', {'Accounting-Record-Type', ?EVENT_RECORD},
                     {'Accounting-Record-Number', 3}],
   
  -    ['ACA', {'Session-Id', _}, {'Result-Code', ?SUCCESS} | _]
  +    #{':name' := 'ACA',
  +      'Result-Code' := ?SUCCESS,
  +      'Session-Id' := _}
           = call(Config, Req).
   
   %% Send an accounting ACR that the server tries to answer with an
  
positive.code: send_unexpected_mandatory(Config) ->
      Req = ['STR', {'Termination-Cause', ?LOGOUT}],
  
      ['STA', {'Session-Id', _}, {'Result-Code', ?AVP_UNSUPPORTED} | _]
          = call(Config, Req).
  
  %% Send something long that will be fragmented by TCP.
  send_long(Config) ->
      Req = ['STR', {'Termination-Cause', ?LOGOUT},
                    {'User-Name', [binary:copy(<<$X>>, 1 bsl 20)]}],
      ['STA', {'Session-Id', _}, {'Result-Code', ?SUCCESS} | _]
          = call(Config, Req).
  
  %% Send something longer than the configure incoming_maxlen.
  
negative.code: send_invalid_avp_length(Config) ->
      Req = ['STR', {'Termination-Cause', ?LOGOUT}],
  
      #{':name' := 'STA',
        'Session-Id' := _,
        'Result-Code' := ?INVALID_AVP_LENGTH,
        'Origin-Host' := _,
        'Origin-Realm' := _,
        'User-Name' := _,
        'Class' := _,
        'Error-Message' := _,
        'Error-Reporting-Host' := _,
        'Failed-AVP' := Avps}
          = call(Config, Req),
      [[_]] = failed_avps(Avps, Config).
  
  