anchor.diff:  end_per_group(_, _) ->
       ok.
   
  +%% Skip testcases that can reasonably fail under SCTP.
   init_per_testcase(Name, Config) ->
  -    [{testcase, Name} | Config].
  +    case [skip || #group{transport = sctp}
  +                      <- [proplists:get_value(group, Config)],
  +                  send_maxlen == Name
  +                      orelse send_long == Name]
  +    of
  +        [skip] ->
  +            {skip, sctp};
  +        [] ->
  +            [{testcase, Name} | Config]
  +    end.
   
   end_per_testcase(_, _) ->
       ok.
  
positive.code: %% ===========================================================================
  
  suite() ->
      [{timetrap, {seconds, 60}}].
  
  all() ->
      [start, result_codes, {group, traffic}, outstanding, empty, stop].
  
  groups() ->
      Ts = tc(),
      [{?util:name([R,D,A,C]), [parallel], Ts} || R <- ?ENCODINGS,
                                                  D <- ?RFCS,
                                                  A <- ?ENCODINGS,
                                                  C <- ?CONTAINERS]
          ++
          [{?util:name([R,D,A,C,SD,CD]),
            [],
            [start_services,
             add_transports,
  
negative.code: %% them as binary.
  -define(STRING_DECODES, [true, false]).
  
  %% Which transport protocol to use.
  -define(TRANSPORTS, [tcp, sctp]).
  
  -record(group,
          {transport,
           client_service,
           client_encoding,
           client_dict0,
           client_strings,
  