anchor.diff:  	%% looking up the host. DNS lookup will probably fail.
   	{error,nxdomain} ->
   	    {skip, "IPv6 test fails! IPv6 not supported on this host!?"};
  -	{ok,HEnt6} ->
  -	    {ok,HEnt6} = inet:gethostbyaddr(IP6),
  -	    {error,Error6} = inet:gethostbyaddr(Name6),
  -	    ok = io:format("Failure reason: ~p: ~s",
  -			   [Error6, inet:format_error(Error6)]),
  +	{ok, HEnt6} ->
  +	    {ok, HEnt6} = inet:gethostbyaddr(IP6),
  +	    {error, Reason6} = inet:gethostbyaddr(Name6),
  +	    ok = ?P("Expected error with failure reason: "
  +                    "~n   (~w) ~s", [Reason6, inet:format_error(Reason6)]),
   	    HEnt6_ = HEnt6#hostent{h_addrtype = inet6,
   				   h_length = 16,
   				   h_addr_list = [IP6]},
  
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]},
  