anchor.diff:      end.
   
   check_elems([{Val,Tests} | Elems]) ->
  +    ?P("check_elems -> entry with"
  +       "~n   Val:   ~p"
  +       "~n   Tests: ~p", [Val, Tests]),
       check_elem(Val, Tests, Tests),
       check_elems(Elems);
   check_elems([]) -> ok.
  
positive.code: end_per_testcase2(_Func, _Config) ->
      ok.
  
  t_gethostbyaddr() ->
      required(v4).
  %% Test the inet:gethostbyaddr/1 function.
  t_gethostbyaddr(Config) when is_list(Config) ->
      {Name,FullName,IPStr,{A,B,C,D}=IP,Aliases,_,_} = ct:get_config(test_host_ipv4_only),
      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),
      {error,Error} = inet:gethostbyaddr(Name),
      ok = io:format("Failure reason: ~p: ~s", [error,inet:format_error(Error)]),
      HEnt_ = HEnt#hostent{h_addrtype = inet,
                           h_length = 4,
                           h_addr_list = [IP]},
  
negative.code: t_gethostbyname() -> required(v4).
  %% Test the inet:gethostbyname/1 function.
  t_gethostbyname(Config) when is_list(Config) ->
      ?TC_TRY(?FUNCTION_NAME, fun() -> do_gethostbyname(Config) end).
  
  do_gethostbyname(Config) when is_list(Config) ->
      {Name,FullName,IPStr,IP,Aliases,IP_46_Str,_} =
  	ct:get_config(test_host_ipv4_only),
      {ok,_} = inet:gethostbyname(IPStr),
  