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:                                      | ?SERVICE(CN, CD)]).
  
  add_transports(Config) ->
      #group{client_service = CN,
             server_service = SN}
          = group(Config), 
      LRef = ?util:listen(SN,
                          tcp,
                          [{capabilities_cb, fun capx/2},
                           {spawn_opt, [{min_heap_size, 8096}]},
                           {applications, apps(rfc3588)}]),
      Cs = [?util:connect(CN,
                          tcp,
                          LRef,
                          [{id, Id},
                           {capabilities, [{'Origin-State-Id', origin(Id)}]},
  
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,
  