anchor.diff:  %% Positive number of testcases from which to select (randomly) from
   %% tc(), the list of testcases to run, or [] to run all. The random
   %% selection is to limit the time it takes for the suite to run.
  --define(LIMIT, 42).
  +-define(LIMIT, #{tcp => 42, sctp => 5}).
   
   -define(util, diameter_util).
   
  
positive.code:                        server_decoding = D,
                         server_sender = SS,
                         server_throttle = ST},
              [{group, G}, {runlist, select()} | Config];
          _ ->
              Config
      end.
  
negative.code: -define(GROUPS, []).
  %-define(GROUPS, [[tcp,rfc6733,record,map,false,false,false,false]]).
  
  %% Issues with gen_sctp sporadically cause huge numbers of failed
  %% testcases when running testcases in parallel.
  groups() ->
      Names = names(),
      [{P, [P], Ts} || Ts <- [tc()], P <- [shuffle, parallel]]
          ++
          [{?util:name(N), [], [{group, if T == sctp; S -> shuffle;
                                           true         -> parallel end}]}
           || [T,_,_,_,S|_] = N <- Names]
          ++
          [{T, [], [{group, ?util:name(N)} || N <- names(Names, ?GROUPS),
                                              T == hd(N)]}
  