anchor.diff:  				    ok
   			    end
   		    end)
  -     end,
  -    stop_ssl_node(NH1),
  -    stop_ssl_node(NH2),
  -    success(Config).
  +     end.
   
   %%--------------------------------------------------------------------
   payload() ->
       [{doc,"Test that send a lot of data between the ssl distributed noes"}].
   payload(Config) when is_list(Config) ->
  -    NH1 = start_ssl_node(Config),
  +    gen_dist_test(payload_test, Config).
  +
  +payload_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),
  
positive.code: basic() ->
      [{doc,"Test that two nodes can connect via ssl distribution"}].
  basic(Config) when is_list(Config) ->
      NH1 = start_ssl_node(Config),
      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),
  
negative.code: 
      %% Start a node, and get the port number it's listening on.
      NH1 = start_ssl_node([{additional_dist_opts, Options} | Config]),
    
      try
  	Node1 = NH1#node_handle.nodename,
  	Name = lists:takewhile(fun(C) -> C =/= $@ end, atom_to_list(Node1)),
  	{ok, NodesPorts} = apply_on_ssl_node(NH1, fun net_adm:names/0),
  	{Name, Port} = lists:keyfind(Name, 1, NodesPorts),
  	
  	%% Now find the socket listening on that port, and check its sockname.
  	Sockets = apply_on_ssl_node(
  		    NH1,
  		    fun() ->
  			    [inet:sockname(P) ||
  				P <- inet_ports(),
  				{ok, Port} =:= (catch inet:port(P))]
  		    end),
  	%% And check that it's actually listening on localhost.
  	[{ok,{{127,0,0,1},Port}}] = Sockets
      catch 
  	_:Reason ->
  	    stop_ssl_node(NH1),
  	    ct:fail(Reason)
      end,
      stop_ssl_node(NH1),
      success(Config).
  %%--------------------------------------------------------------------
  