anchor.diff:                     not_yet_implemented(),
                      ?TT(?SECS(30)),
                      Send = fun(Sock, Data) -> socket:send(Sock, Data) end,
  -                   Recv = fun(Sock)       -> socket:recv(Sock)       end,
  +                   Recv = fun(Sock, Sz)   -> socket:recv(Sock, Sz) end,
                      InitState = #{domain => inet6,
                                    send   => Send, % Send function
                                    recv   => Recv  % Receive function
  
positive.code:                    ?TT(?SECS(15)),
                     Send = fun(Sock, Data) -> socket:send(Sock, Data) end,
                     %% Recv = fun(Sock)       -> socket:recv(Sock, 0, 5000) end,
                     Recv = fun(Sock)       -> socket:recv(Sock) end,
                     InitState = #{domain => inet,
                                   send   => Send, % Send function
                                   recv   => Recv  % Receive function
  
negative.code:                            {CSent, CReceived, CStart, CStop} = CRes,
                             STime = tdiff(SStart, SStop),
                             CTime = tdiff(CStart, CStop),
                             %% Note that the sizes we are counting is only 
                             %% the "data" part of the messages. There is also
                             %% fixed header for each message, which of cource
                             %% is small for the large messages, but comparatively
                             %% big for the small messages!
                             ?SEV_IPRINT("Results: ~w messages exchanged"
                                         "~n   Server: ~w msec"
                                         "~n      ~.2f msec/message (roundtrip)"
                                         "~n      ~.2f messages/msec (roundtrip)"
                                         "~n      ~w bytes/msec sent"
                                         "~n      ~w bytes/msec received"
                                         "~n   Client: ~w msec"
                                         "~n      ~.2f msec/message (roundtrip)"
                                         "~n      ~.2f messages/msec (roundtrip)"
                                         "~n      ~w bytes/msec sent"
                                         "~n      ~w bytes/msec received",
                                         [Num,
                                          STime,
                                          STime / Num,
                                          Num / STime,
                                          SSent div STime,
                                          SReceived div STime,
                                          CTime,
                                          CTime / Num,
                                          Num / CTime,
                                          CSent div CTime,
                                          CReceived div CTime]),
                             State1 = maps:remove(server_result, State),
                             State2 = maps:remove(client_result, State1),
                             {ok, State2}
                     end},
  
  