anchor.diff:      {error,closed} = gen_tcp:recv(Server, 1, 2000),
       ok = gen_tcp:close(Server),
       ok = gen_tcp:close(L),
  +    p("done"),
       ok.
   
   
  
positive.code:     Answer = "there was a shoemaker, Schumacher was his name.",
      Path = proplists:get_value(data_dir, Config),
      Lib = "gen_tcp_api_SUITE",
      ok = erlang:load_nif(filename:join(Path,Lib), []),
      {ok, L} = gen_tcp:listen(0, [{active, false}]),
      {ok, Port} = inet:port(L),
      FD = gen_tcp_api_SUITE:getsockfd(),
      {ok, Client} = gen_tcp:connect(localhost, Port, [{fd,FD},{port,20002},
                                                       {active,false}]),
      {ok, Server} = gen_tcp:accept(L),
      ok = gen_tcp:send(Client, Question),
      {ok, Question} = gen_tcp:recv(Server, length(Question), 2000),
      ok = gen_tcp:send(Client, Question1),
  
negative.code:     ok.
  
  t_fdconnect(Config) when is_list(Config) ->
      try do_t_fdconnect(Config)
      catch
          throw:{skip, _} = SKIP ->
              SKIP
      end.
  
  do_t_fdconnect(Config) ->
      Question = "Aaaa... Long time ago in a small town in Germany,",
      Question1 = list_to_binary(Question),
      Question2 = [<<"Aaaa">>, "... ", $L, <<>>, $o, "ng time ago ",
  