anchor.diff:             client_service = CN,
              client_sender = CS,
              server_service = SN,
  -           server_container = SC,
              server_sender = SS,
              server_throttle = ST}
           = group(Config),
  
positive.code:     V = EI bsr B,  %% assert
      V = HI bsr B,  %%
      #diameter_caps{origin_state_id = {_,[Id]}} = Caps,
      {D,_,_} = T = origin(Id),
      wrap(T, H, request(to_map(D, Pkt), [H|As], Caps)).
  
  wrap(Id, H, {Tag, Action, Post}) ->
      {Tag, wrap(Id, H, Action), Post};
  wrap(_, _, {reply, [#diameter_header{} | _]} = T) ->
      T;
  wrap({_,E,C}, H, {reply, Ans}) ->
      Msg = msg(Ans, E, diameter_gen_base_rfc3588),
      wrap(C, H, {reply, base_to_nas(Msg, H)});
  wrap(pkt, _, {reply, Ans})
    when not is_record(Ans, diameter_packet) ->
      {reply, #diameter_packet{msg = Ans}};
  wrap(_, _, T) ->
      T.
  
  %% base_to_nas/2
  
  
negative.code:                        client_sender = CS,
                         server_service = [$S|?util:unique_string()],
                         server_decoding = SD,
                         server_sender = SS,
                         server_throttle = ST},
              %% Limit the number of testcase, since the number of
  