anchor.diff:                                OptsValsDefault,
                                 UnexpOK1});
                       {error, UnexpERR1} ->
  -                        io:format("Unexpected ERROR (~w): "
  -                                  "~n   ~p"
  -                                  "~n", [Role, UnexpERR1]),
  +                        p("Unexpected ERROR (~w): "
  +                          "~n   ~p"
  +                          "~n", [Role, UnexpERR1]),
                           exit({unexpected_getopts_failure,
                                 Role,
                                 Spec,
  
positive.code:     %% {ok,[{pktoptions,OptsVals1}]} = inet:getopts(S1, [pktoptions]),
      %% {ok,[{pktoptions,OptsVals2}]} = inet:getopts(S2, [pktoptions]),
      (Result1 = sets_eq(OptsVals1, OptsVals))
          orelse io:format(
                   "Accept differs: ~p neq ~p~n", [OptsVals1,OptsVals]),
      (Result2 = sets_eq(OptsVals2, OptsValsDefault))
          orelse io:format(
                   "Connect differs: ~p neq ~p~n",
                   [OptsVals2,OptsValsDefault]),
      %%
      ok = gen_tcp:close(S2),
  
negative.code:                     {ok, [{pktoptions, PktOpts1}]} ->
                          PktOpts1;
                      {ok, UnexpOK1} ->
                          p("Unexpected OK (~w): "
                            "~n   ~p"
                            "~n", [Role, UnexpOK1]),
                          exit({unexpected_getopts_ok,
                                Role,
                                Spec,
  