anchor.diff:  find(#group{client_service = CN,
               server_encoding = A,
               server_container = C},
  -     Peers) ->
  +     [_|_] = Peers) ->
       Id = {A,C},
       [P] = [P || P <- Peers, id(Id, P, CN)],
       {ok, P}.
  
positive.code: 
  init_per_group(Name, Config) ->
      case ?util:name(Name) of
          [T,R,D,A,C,SD,SS,CD,CS] ->
              G = #group{transport = T,
                         client_service = [$C|?util:unique_string()],
                         client_encoding = R,
  
negative.code:             C <- ?CONTAINERS,
              SD <- ?STRING_DECODES,
              SS <- ?SENDERS,
              ST <- ?CALLBACKS,
              CD <- ?STRING_DECODES,
              CS <- ?SENDERS]
          ++
          [{T, [], groups([[T,R,D,A,C,SD,SS,ST,CD,CS]
                           || R <- ?ENCODINGS,
                              D <- ?RFCS,
                              A <- ?ENCODINGS,
                              C <- ?CONTAINERS,
                              SD <- ?STRING_DECODES,
                              SS <- ?SENDERS,
                              ST <- ?CALLBACKS,
                              CD <- ?STRING_DECODES,
                              CS <- ?SENDERS,
                              SS orelse CS])}  %% avoid deadlock
           || T <- ?TRANSPORTS]
          ++
          [{traffic, [], [{group, T} || T <- ?TRANSPORTS]}].
  
  %groups(_) ->  %% debug
  %    Name = [sctp,record,rfc6733,record,pkt,false,false,false,false,false],
  %    [{group, ?util:name(Name)}];
  groups(Names) ->
      [{group, ?util:name(L)} || L <- Names].
  
  %tc([N|_]) ->  %% debug
  %    [N];
  tc(L) ->
      L.
  
  %% --------------------
  
  