anchor.diff:      name(T, [H|Name]).
   
   
  -atom_conv(A) when is_atom(A) ->
  -    atom_to_list(A);
  -atom_conv(A) when is_list(A) ->
  -    A.
  -
  -env_conv([]) ->
  -    [];
  -env_conv([{X,Y}|T]) ->
  -    atom_conv(X) ++ " \"" ++ atom_conv(Y) ++ "\" " ++ env_conv(T).
  +enc(A) when is_atom(A) -> atom_to_list(A);
  +enc(A) when is_binary(A) -> binary_to_list(A);
  +enc(A) when is_list(A) -> A.
  +
  +env_encode([]) -> [];
  +env_encode([{X,Y}|T]) ->
  +    "-env " ++ enc(X) ++ " \"" ++ enc(Y) ++ "\" " ++ env_encode(T).
   
   %%%
   %%% Starts a node and runs a function in this
  
positive.code: %%%
  start_node_run(Name, Env, Function, Argument) -> 
      PA = filename:dirname(code:which(?MODULE)),
      Params = "-heart -env " ++ env_conv(Env) ++ " -pa " ++ PA ++
  	" -s " ++
  	atom_conv(?MODULE) ++ " " ++ atom_conv(Function) ++ " " ++
  	atom_conv(Argument),
      start_node(Name, Params).
  
  start_node(Name, Param) ->
  
negative.code: %%-----------------------------------------------------------------
  suite() -> [{ct_hooks,[ts_install_cth]}].
  
  all() -> [
  	start, restart, reboot,
  	node_start_immediately_after_crash,
  	set_cmd, clear_cmd, get_cmd,
  	kill_pid
      ].
  
  groups() -> 
      [].
  