anchor.diff:  basic() ->
       [{doc,"Test that two nodes can connect via ssl distribution"}].
   basic(Config) when is_list(Config) ->
  -    NH1 = start_ssl_node(Config),
  +    gen_dist_test(basic_test, Config).
  +
  +basic_test(NH1, NH2, _) ->
       Node1 = NH1#node_handle.nodename,
  -    NH2 = start_ssl_node(Config),
       Node2 = NH2#node_handle.nodename,
  -
       pong = apply_on_ssl_node(NH1, fun () -> net_adm:ping(Node2) end),
   
       [Node2] = apply_on_ssl_node(NH1, fun () -> nodes() end),
  
positive.code:      after
  	 application:stop(ssl)
       end.
  
negative.code: 				    ok
  			    end
  		    end)
       end.
  
  %%--------------------------------------------------------------------
  payload() ->
      [{doc,"Test that send a lot of data between the ssl distributed noes"}].
  payload(Config) when is_list(Config) ->
      gen_dist_test(payload_test, Config).
  
  payload_test(NH1, NH2, _) ->
      Node1 = NH1#node_handle.nodename,
      Node2 = NH2#node_handle.nodename,
  
      pong = apply_on_ssl_node(NH1, fun () -> net_adm:ping(Node2) end),
  