anchor.diff:  
   test_prio_put_get(Config) ->
       Tos = 3 bsl 5,
  +    ?P("test_prio_put_get -> create listen socket"),
       {ok,L1} = ?LISTEN(Config, 0, [{active,false}]),
  +    ?P("test_prio_put_get -> set opts prio (= 3)"),
       ok = inet:setopts(L1,[{priority,3}]),
  +    ?P("test_prio_put_get -> set opts tos (= ~p)", [Tos]),
       ok = inet:setopts(L1,[{tos,Tos}]),
  +    ?P("test_prio_put_get -> verify opts prio and tos"),
       {ok,[{priority,3},{tos,Tos}]} = inet:getopts(L1,[priority,tos]),
  +    ?P("test_prio_put_get -> set opts prio (= 3)"),
       ok = inet:setopts(L1,[{priority,3}]), % Dont destroy each other
  +    ?P("test_prio_put_get -> verify opts prio and tos"),
       {ok,[{priority,3},{tos,Tos}]} = inet:getopts(L1,[priority,tos]),
  +    ?P("test_prio_put_get -> set opts reuseaddr (= true)"),
       ok = inet:setopts(L1,[{reuseaddr,true}]), % Dont let others destroy
  +    ?P("test_prio_put_get -> verify opts prio and tos"),
       {ok,[{priority,3},{tos,Tos}]} = inet:getopts(L1,[priority,tos]),
  +    ?P("test_prio_put_get -> close listen socket"),
       gen_tcp:close(L1),
  +    ?P("test_prio_put_get -> done"),
       ok.
   
   test_prio_accept(Config) ->
  -    {ok,Sock}=?LISTEN(Config, 0,[binary,{packet,0},{active,false},
  -                                {reuseaddr,true},{priority,4}]),
  -    {ok,Port} = inet:port(Sock),
  +    ?P("test_prio_accept -> create listen socket"),
  +    {ok, Sock} = ?LISTEN(Config, 0, [binary,{packet,0},{active,false},
  +                                     {reuseaddr,true},{priority,4}]),
  +    ?P("test_prio_accept -> get port number of listen socket"),
  +    {ok, Port} = inet:port(Sock),
  +    ?P("test_prio_accept -> connect to port ~p", [Port]),
       Sock2 = case ?CONNECT(Config, "localhost",Port,[binary,{packet,0},
                                                      {active,false},
                                                      {reuseaddr,true},
  
positive.code:                 {error, eaddrnotavail = Reason} ->
                      ?SKIPT(connect_failed_str(Reason))
              end,
      {ok,Sock3}=gen_tcp:accept(Sock),
      {ok,[{priority,4}]} = inet:getopts(Sock,[priority]),
      {ok,[{priority,4}]} = inet:getopts(Sock2,[priority]),
      {ok,[{priority,4}]} = inet:getopts(Sock3,[priority]),
      gen_tcp:close(Sock),
      gen_tcp:close(Sock2),
      gen_tcp:close(Sock3),
      ok.
  
  test_prio_accept2(Config) ->
      Tos1 = 4 bsl 5,
      Tos2 = 3 bsl 5,
      {ok,Sock}=?LISTEN(Config, 0,[binary,{packet,0},{active,false},
                                  {reuseaddr,true},{priority,4},
                                  {tos,Tos1}]),
      {ok,Port} = inet:port(Sock),
      Sock2 = case ?CONNECT(Config, "localhost",Port,[binary,{packet,0},
                                                     {active,false},
                                                     {reuseaddr,true},
  
negative.code:                 {error, eaddrnotavail = Reason} ->
                      ?SKIPT(connect_failed_str(Reason))
              end,
      ?P("test_prio_accept_async -> "
         "connected => await prio and tos for listen socket"),
      receive
          {Ref,{ok,[{priority,4},{tos,Tos1}]}} ->
              ok;
  