anchor.diff:      get_numbers_from_attrs(A,T,E,F,S);
   get_numbers_from_attrs([],T,E,F,S) ->
       {T,E,F,S}.
  +
  +ensure_exists_empty(Dir) ->
  +    case file:list_dir(Dir) of
  +	{error,enoent} ->
  +	    file:make_dir(Dir);
  +	{ok,Files} ->
  +	    del_files(Dir,Files)
  +    end.
  +
  +del_files(Dir,[F0|Fs] ) ->
  +    F = filename:join(Dir,F0),
  +    case file:read_file_info(F) of
  +	{ok,#file_info{type=directory}} ->
  +	    {ok,Files} = file:list_dir(F),
  +	    del_files(F,Files),
  +	    file:del_dir(F),
  +	    del_files(Dir,Fs);
  +	_ ->
  +	    file:delete(F),
  +	    del_files(Dir,Fs)
  +    end;
  +del_files(_,[]) ->
  +    ok.
  
positive.code: -include_lib("common_test/include/ct_event.hrl").
  
  -include_lib("xmerl/include/xmerl.hrl").
  
  -define(eh, ct_test_support_eh).
  
  
negative.code: 	    false -> ?config(priv_dir,Config)
  	end,
      MyLogDir = filename:join(LogDir,"specific_logdir"),
      ensure_exists_empty(MyLogDir),
      Path = "logdir.xml",
      run(logdir,[{cth_surefire,[{path,Path}]}],Path,Config,[{logdir,MyLogDir}]).
  
  