[socket-nif|test] Add more ttest (gen_tcp) test cases

Added a number of ttest test cases with transport gen_tcp.
Server with transport = gen_tcp, active = once and client
using transport = gen_tcp (and active = false, once and true).
Also a bit of client and server cleanup (remove and cleanup up
some printouts).

OTP-14831

1 files changed, 3 insertions, 5 deletions

diff --git a/erts/emulator/test/socket_test_ttest_tcp_server.erl b/erts/emulator/test/socket_test_ttest_tcp_server.erl
index 15f65d56b6..7506e7f932 100644
--- a/erts/emulator/test/socket_test_ttest_tcp_server.erl
+++ b/erts/emulator/test/socket_test_ttest_tcp_server.erl
@@ -119,18 +119,16 @@ stop(Pid) when is_pid(Pid) ->
 %% ==========================================================================
 
 server_init(Starter, Parent, Transport, Active) ->
-    ?I("init -> entry with"
-       "~n   Starter:   ~p"
-       "~n   Parent:    ~p"
+    ?I("init with"
        "~n   Transport: ~p"
-       "~n   Active:    ~p", [Starter, Parent, Transport, Active]),
+       "~n   Active:    ~p", [Transport, Active]),
     {Mod, Listen, StatsInterval} = process_transport(Transport, Active),
     case Listen(0) of
         {ok, LSock} ->
             case Mod:port(LSock) of
                 {ok, Port} ->
 		    Addr = which_addr(), % This is just for convenience
-                    ?I("init -> listening on:"
+                    ?I("listening on:"
                        "~n   Addr: ~p (~s)"
                        "~n   Port: ~w"
                        "~n", [Addr, inet:ntoa(Addr), Port]),