anchor.diff:  	    ok
       end.
   
  +wait_for_app(_Node, Name, 0) ->
  +    {error, Name};
  +wait_for_app(Node, Name, N) when is_integer(N), N > 0 ->
  +    case rpc:call(Node,application,which_applications,[]) of
  +	{badrpc,Reason} ->
  +	    test_server:fail({failed_to_get_applications,Reason});
  +	Apps ->
  +	    case lists:member(Name,Apps) of
  +		false ->
  +		    timer:sleep(1000),
  +		    wait_for_app(Node, Name, N-1);
  +		true ->
  +		    ok
  +	    end
  +    end.
  +
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   %% Run escript
   
  
positive.code:     reltool_test_lib:end_per_suite(Config).
  
  init_per_testcase(Func,Config) ->
      reltool_test_lib:init_per_testcase(Func,Config).
  end_per_testcase(Func,Config) -> 
      reltool_test_lib:end_per_testcase(Func,Config).
  
negative.code:     Erl = filename:join([TargetDir, "bin", "erl"]),
      {ok, Node} = ?msym({ok, _}, start_node(?NODE_NAME, Erl)),
  
  
      %% The ua application has a unicode string as description - check
      %% that it is translated correctly.
      wait_for_app(Node,ua,50),
      Apps = rpc:call(Node,application,which_applications,[]),
      ?m({ua,"Application for testing unicode in reltool - αβ","1.0"},
         lists:keyfind(ua,1,Apps)),
  