anchor.diff:  		ChkRes).
   
   %%
  -%%
   %% Auxiliary functions
   %%
  -%%
   
   expect(X, X) ->
  -    io:format("result: ~p~n", [X]),
  +    io:format("result: ~tp~n", [X]),
       io:format("-----------------------------------------------~n", []),
       ok;
   expect(X, Y) ->
  -    io:format("expected: ~p~n", [X]),
  -    io:format("got     : ~p~n", [Y]),
  +    io:format("expected: ~tp~n", [X]),
  +    io:format("got     : ~tp~n", [Y]),
       io:format("-----------------------------------------------~n", []),
       ct:fail({X,Y}).
  -    
  +
   init_per_suite(Config) ->
       PD = proplists:get_value(priv_dir, Config),
       SymLinks = case os:type() of
  
positive.code: %%
  %% %CopyrightEnd%
  %%
  
  
  %%%-------------------------------------------------------------------
  %%% File    : install_SUITE.erl
  
negative.code: 	true -> ok;
  	false -> {comment, "No symlink tests run, since symlinks not working"}
      end.
  
  
  install_bin2(Config, Inst, ChkRes) ->
      install_bin3(Config, Inst#inst{symlinks = false,
  				   ln_s = "ln"}, ChkRes),
  