anchor.diff:          {{unix,freebsd},{5,0,0}} ->
               %% The alias list seems to be buggy in FreeBSD 5.0.0.
               check_elems([{HEnt#hostent.h_name,[Name,FullName]}]),
  -            io:format("Buggy alias list: ~p", [HEnt#hostent.h_aliases]),
  +            ?P("Buggy alias list: ~p", [HEnt#hostent.h_aliases]),
               ok;
           _ ->
  -            io:format("alias list: ~p", [HEnt#hostent.h_aliases]),
  -            io:format(
  -	      "check alias list: ~p", [[Aliases,tl(Aliases),[Rname]]]),
  -            io:format("name: ~p", [HEnt#hostent.h_name]),
  -            io:format("check name: ~p", [[Name,FullName]]),
  +            ?P("alias list: "
  +               "~n   ~p", [HEnt#hostent.h_aliases]),
  +            ?P("check alias list: "
  +               "~n   ~p", [[Aliases,tl(Aliases),[Rname]]]),
  +            ?P("name:       ~p", [HEnt#hostent.h_name]),
  +            ?P("check name: ~p", [[Name,FullName]]),
               check_elems(
   	      [{HEnt#hostent.h_name,[Name,FullName]},
   	       {HEnt#hostent.h_aliases,[[],Aliases,tl(Aliases),[Rname]]}])
       end,
   
  +    ?P("try get config 'test_dummy_host'"),
       {_DName, _DFullName, DIPStr, DIP, _, _, _} = ct:get_config(test_dummy_host),
       {error,nxdomain} = inet:gethostbyaddr(DIPStr),
       {error,nxdomain} = inet:gethostbyaddr(DIP),
  +
  +    ?P("done"),
       ok.
   
   t_gethostbyaddr_v6() -> required(v6).
   %% Test the inet:gethostbyaddr/1 inet6 function.
   t_gethostbyaddr_v6(Config) when is_list(Config) ->
  +    ?TC_TRY(?FUNCTION_NAME, fun() -> do_gethostbyaddr_v6(Config) end).
  +
  +do_gethostbyaddr_v6(Config) when is_list(Config) ->
       {Name6, FullName6, IPStr6, IP6, Aliases6} =
   	ct:get_config(test_host_ipv6_only),
   
  
positive.code: t_gethostbyname_v6() -> required(v6).
  %% Test the inet:gethostbyname/1 inet6 function.
  t_gethostbyname_v6(Config) when is_list(Config) ->
      {Name, FullName, IPStr, IP, Aliases} =
  	ct:get_config(test_host_ipv6_only),
  
  
negative.code: end_per_testcase2(_Func, _Config) ->
      ok.
  
  t_gethostbyaddr() -> required(v4).
  %% Test the inet:gethostbyaddr/1 function.
  t_gethostbyaddr(Config) when is_list(Config) ->
      ?TC_TRY(?FUNCTION_NAME, fun() -> do_gethostbyaddr(Config) end).
  
  do_gethostbyaddr(Config) when is_list(Config) ->
      ?P("begin - try get config 'test_host_ipv4_only'"),
      {Name,FullName,IPStr,{A,B,C,D}=IP,Aliases,_,_} =
          ct:get_config(test_host_ipv4_only),
      ?P("config 'test_host_ipv4_only': "
         "~n   Name:      ~p"
         "~n   Full Name: ~p"
         "~n   IPStr:     ~p"
         "~n   (IP) A:    ~p"
         "~n   (IP) B:    ~p"
         "~n   (IP) C:    ~p"
         "~n   (IP) D:    ~p"
         "~n   Aliases:   ~p",
         [Name, FullName, IPStr, A, B, C, D,Aliases]),
      Rname = integer_to_list(D) ++ "." ++
  	integer_to_list(C) ++ "." ++
  	integer_to_list(B) ++ "." ++
  	integer_to_list(A) ++ ".in-addr.arpa",
      {ok, HEnt} = inet:gethostbyaddr(IPStr),
      {ok, HEnt} = inet:gethostbyaddr(IP),
      ?P("gethostbyaddr for (both):"
         "~n   IPStr: ~p"
         "~n   IP:    ~p"
         "~n   => ~p", [IPStr, IP, HEnt]),
      {error, Reason} = inet:gethostbyaddr(Name),
      ok = ?P("Expected error with failure reason: "
              "~n   (~w) ~s", [Reason, inet:format_error(Reason)]),
      HEnt_ = HEnt#hostent{h_addrtype = inet,
                           h_length = 4,
                           h_addr_list = [IP]},
  