anchor.diff:      Prev = proplists:get_value(Key, Config),
       ets:delete(Db, Key),
       ets:insert(Db, Prev),
  -    io:format("Restored resolver lookup order", []);
  +    ?P("end_per_testcase -> Restored resolver lookup order");
   end_per_testcase(_Func, _Config) ->
       ok.
   
  
positive.code: 	    {skipped, "Native not only lookup metod"}
      end.
  
  gethostnative_control_1(Config,
  			#gethostnative_control{
  			   control_seq=Seq,
  			   control_interval=Interval,
  			   lookup_delay=Delay,
  			   lookup_count=Cnt,
  			   lookup_processes=N}) ->
      {ok, Hostname} = inet:gethostname(),
      {ok, _} = inet:gethostbyname(Hostname),
      Hosts =
  	[Hostname|[H || {_,H} <- get_hosts(Config)]
  	 ++[H++D || H <- ["www.","www1.","www2.",""],
  		    D <- ["erlang.org","erlang.se"]]
  	 ++[H++"cslab.ericsson.net" || H <- ["morgoth.","hades.","styx."]]],
      %% Spawn some processes to do parallel lookups while
      %% I repeatedly do inet_gethost_native:control/1.
      TrapExit = process_flag(trap_exit, true),
      gethostnative_control_2([undefined], Interval, Delay, Cnt, N, Hosts),
      io:format(
        "First intermission: now starting control sequence ~w\n",
        [Seq]),
      erlang:display(first_intermission),
      gethostnative_control_2(Seq, Interval, Delay, Cnt, N, Hosts),
      erlang:display(second_intermission),
      io:format(
        "Second intermission:  now stopping control sequence ~w\n",
        [Seq]),
      gethostnative_control_2([undefined], Interval, Delay, Cnt, N, Hosts),
      true = process_flag(trap_exit, TrapExit),
      ok.
  
  gethostnative_control_2(Seq, Interval, Delay, Cnt, N, Hosts) ->
  
negative.code:     end.
  
  lookup_loop(_, _Delay, Tag, _Parent,  0, _Hosts) ->
      ?P("done with ~p", [tag]),
      exit(Tag);
  lookup_loop([], Delay, Tag, Parent, Cnt, Hosts) ->
      ?P("begin lookup (~p) again when ~p", [Tag, Cnt]),
      lookup_loop(Hosts, Delay, Tag, Parent, Cnt, Hosts);
  lookup_loop([H|Hs], Delay, Tag, Parent, Cnt, Hosts) ->
      ?P("try lookup (~p, ~p) ~p", [Tag, Cnt, H]),
      case inet:gethostbyname(H) of
  	{ok, _Hent} ->
              ?P("lookup: found"),
              ok;
  	{error, nxdomain} ->
              ?P("lookup: nxdomain"),
              ok;
  	Error ->
  	    ?P("loopkup: error for ~p: ~p", [H, Error]),
  	    Parent ! {Tag, Error}
      end,
      receive
      after rand:uniform(Delay) ->
  	    lookup_loop(Hs, Delay, Tag, Parent, Cnt-1, Hosts) 
      end.
  