anchor.diff:     [basic/1,
       api_open_close/1,api_listen/1,api_connect_init/1,api_opts/1,
       xfer_min/1,xfer_active/1,def_sndrcvinfo/1,implicit_inet6/1,
  -    basic_stream/1, xfer_stream_min/1]).
  +    basic_stream/1, xfer_stream_min/1, peeloff/1]).
   
   suite() -> [{ct_hooks,[ts_install_cth]}].
   
   all() -> 
       [basic, api_open_close, api_listen, api_connect_init,
        api_opts, xfer_min, xfer_active, def_sndrcvinfo, implicit_inet6,
  -     basic_stream, xfer_stream_min].
  +     basic_stream, xfer_stream_min, peeloff].
   
   groups() -> 
       [].
  
positive.code: 	{'DOWN',Mref,_,_,Reason} ->
  	    erlang:exit(Reason)
      end.
  
negative.code:     inet:setopts(S, [{Opt,Val}]).
  
  ok({ok,X}) ->
      io:format("OK[~w]: ~p~n", [self(),X]),
      X.
  
  log(X) ->
      io:format("LOG[~w]: ~p~n", [self(),X]),
      X.
  
  flush() ->
  