anchor.diff:  init_per_group(_GroupName, Config) ->
       Config.
   
  -end_per_group(_GroupName, Config) ->
  -    Config.
  +end_per_group(_GroupName, _Config) ->
  +    ok.
   
   init_per_suite(Config) ->
  -    Server = setup(ssl, node()),
  -    [{server_node, Server}|Config].
  -
  -end_per_suite(Config) ->
  -    Config.
  +    try
  +	Server = setup(ssl, node()),
  +	[{server_node, Server}|Config]
  +    catch _:_ ->
  +	    {skipped, "Benchmark machines only"}
  +    end.
  +
  +end_per_suite(_Config) ->
  +    ok.
   
   init_per_testcase(_Func, Conf) ->
       Conf.
  
positive.code: setup(_Type, nonode@nohost) ->
      exit(dist_not_enabled);
  setup(Type, _This) ->
      {ok, Host} = inet:gethostname(),
      Node = list_to_atom("perf_server@" ++ Host),
      SlaveArgs = case init:get_argument(pa) of
  	       {ok, PaPaths} ->
  
negative.code: 	   end,
      {TimeInMicro, _} = timer:tc(Run),
      TotalTests = ParallellConnections * Loop,
      TestPerSecond = 1000000 * TotalTests div TimeInMicro,
      io:format("TC ~p ~p ~p ~p 1/s~n", [TC, Type, ParallellConnections, TestPerSecond]),
      unlink(SPid),
      SPid ! quit,
      {ok, TestPerSecond}.
  
  server_init(ssl, setup_connection, _, _, Server) ->
      {ok, Socket} = ssl:listen(0, ssl_opts(listen)),
      {ok, {_Host, Port}} = ssl:sockname(Socket),
      {ok, Host} = inet:gethostname(),
      ?FPROF_SERVER andalso start_profile(fprof, [whereis(ssl_manager), new]),
      %%?EPROF_SERVER andalso start_profile(eprof, [ssl_connection_sup, ssl_manager]),
      ?EPROF_SERVER andalso start_profile(eprof, [ssl_manager]),
  