anchor.diff:  -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 S -> shuffle; not S -> parallel end}]}
  -         || [_,_,_,_,S|_] = N <- Names]
  +        [{?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)]}
  
positive.code: end_per_group(_, _) ->
      ok.
  
  select() ->
      try rand:uniform(?LIMIT) of
          N -> lists:sublist(?util:scramble(tc()), max(N,5))
      catch
          error:_ -> ?LIMIT
      end.
  
negative.code:                        server_decoding = D,
                         server_sender = SS,
                         server_throttle = ST},
              [{group, G}, {runlist, select(T)} | Config];
          _ ->
              Config
      end.
  