anchor.diff:      Offset = L - length(Padding) - 4,
       <<H:Offset/binary, Len:24, T/binary>> = Bin,
       E#diameter_packet{bin = <<H/binary, (Len+9):24, T/binary>>};
  -
  -prepare(Pkt, Caps, N, #group{client_dict = Dict0} = Group)
  -  when N == send_too_many ->
  -    Req = prepare(Pkt, Caps, Group),
  -
  -    #diameter_packet{header = #diameter_header{length = L},
  -                     bin = B}
  -        = E
  -        = diameter_codec:encode(Dict0,
  -                                Pkt#diameter_packet{msg = Req}),
  -    M = L - 4 - 12,
  -    <<1, L:24,
  -      T:M/binary,
  -      A:8/binary, D:4/binary>>
  -        = B,
  -    E#diameter_packet{bin = <<1, (L+12):24,
  -                              T/binary,
  -                              A/binary, D/binary,
  -                              A/binary, 42:32>>};
   
   prepare(Pkt, Caps, N, #group{client_dict = Dict0} = Group)
     when N == send_long_avp_length;
  
positive.code:                    origin_realm = {OR, DR}}
          = Caps,
  
      set(Group, Req, [{'Session-Id', diameter:session_id(OH)},
                       {'Origin-Host',  OH},
                       {'Origin-Realm', OR},
                       {'Destination-Realm', DR}]);
  
  set(N, #diameter_packet{msg = Req}, Caps, Group)
    when N == {record, diameter_base_ASR};
  
negative.code: %% unknown host or realm.
  send_destination_3(Config) ->
      Req = ['STR', {'Termination-Cause', ?LOGOUT},
                    {'Destination-Realm', <<"unknown.org">>}],
      {error, no_connection}
          = call(Config, Req, [{filter, {all, [host, realm]}}]).
  send_destination_4(Config) ->
      #group{server_service = SN}
          = group(Config),
      Req = ['STR', {'Termination-Cause', ?LOGOUT},
                    {'Destination-Host', [?HOST(SN, ["unknown.org"])]}],
      {error, no_connection}
          = call(Config, Req, [{filter, {all, [host, realm]}}]).
  
  