anchor.diff:  -define(FPROF_SERVER, false).
   -define(EPROF_CLIENT, false).
   -define(EPROF_SERVER, false).
  --define(PERCEPT_SERVER, false).
   
   %% Current numbers gives roughly a testcase per minute on todays hardware..
   
  
positive.code:     ?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]),
      ?PERCEPT_SERVER andalso percept:profile("/tmp/ssl_server.percept"),
      Server ! {self(), {init, Host, Port}},
      Test = fun(TSocket) ->
  		   ok = ssl:ssl_accept(TSocket),
  
negative.code:     receive quit ->
  	    ?FPROF_SERVER andalso stop_profile(fprof, "test_server_res.fprof"),
  	    ?EPROF_SERVER andalso stop_profile(eprof, "test_server_res.eprof"),
  	    ok
      after 0 ->
  	    case ssl:transport_accept(LSocket, 2000) of
  