anchor.diff:      end.
   
   do_sort(P, List0) ->
  -    io:format("[~w]Sort: ~p\n", [self(), List0]),
  +    p("Sort: "
  +      "~n   ~p", [List0]),
       List = [El++"\n" || El <- List0],
  -    {ok,S} = gen_tcp:connect(localhost, P, [{packet,line}]),
  +    S = case gen_tcp:connect(localhost, P, [{packet,line}]) of
  +            {ok, Socket} ->
  +                Socket;
  +            {error, eaddrnotavail = Reason} ->
  +                skip(connect_failed_str(Reason))
  +        end,
       send_lines(S, List),
       ok = gen_tcp:shutdown(S, write),
       Lines = collect_lines(S, true),
  -    io:format("[~w]Collected: ~p\n", [self(), Lines]),
  +    p("Collected: "
  +      "~n   ~p", [Lines]),
       SortedLines = lists:sort(List),
  -    io:format("[~w]Sorted: ~p\n", [self(), SortedLines]),
  +    p("Sorted: "
  +      "~n   ~p", [SortedLines]),
       Lines = SortedLines,
       ok = gen_tcp:close(S).
   
  
positive.code:             {ok, CS} ->
                  CS;
              {error, eaddrnotavail = Reason} ->
                  throw({skip, Reason})
          end,
      [{active,N}] = ok(inet:getopts(C, [active])),
      S = ok(gen_tcp:accept(LS)),
  
negative.code:         {ok, Sock} ->
              passive_sockets_read(Sock);
          {error, eaddrnotavail = Reason} ->
              {skip, connect_failed_str(Reason)};
          Error ->
              ct:fail({"Could not connect to server", Error})
      end.
  