anchor.diff:  init_per_group(_, Config) ->
       Config.
   end_per_group(http, _Config) ->
  -    inets:stop();
  +    ok;
   end_per_group(https, _Config) ->
  -    ssl:stop(),
  -    inets:stop();
  +    ssl:stop();
   end_per_group(_, _) ->
       ok.
   
  
positive.code:     {Pid, Port} = server_start(Group, server_config(Group, Config)),
      [{server_pid, Pid}, {port, Port} | Config].
  %%--------------------------------------------------------------------
  init_per_testcase(host = Case, Config) ->
      Prop = ?config(tc_group_properties, Config),
      Name = proplists:get_value(name, Prop),
      Cb = case Name of
  
negative.code:     stopped = mnesia:stop(),
      mnesia:delete_schema([node()]),
      ok.
  
  start_blocker(Config) ->
      spawn(httpd_SUITE, init_blocker, [self(), Config]),
      receive
  	blocker_start ->
  	    ok
      end.
      
  init_blocker(From, Config) ->
      From ! blocker_start,
      block(Config).
  
  block(Config) ->
      Version = ?config(http_version, Config),
      Host = ?config(host, Config),
      httpd_test_lib:verify_request(?config(type, Config), Host, 
  				  ?config(port, Config),  ?config(node, Config),
  				  http_request("GET /eval?httpd_example:delay(1000) ", 
  					       Version, Host),
  				  [{statuscode, 200},
  				   {version, Version}]).
  