anchor.diff:  %%
   %% %CopyrightBegin%
   %%
  -%% Copyright Ericsson AB 2012. All Rights Reserved.
  +%% Copyright Ericsson AB 2012-2013. All Rights Reserved.
   %%
   %% The contents of this file are subject to the Erlang Public License,
   %% Version 1.1, (the "License"); you may not use this file except in
  
positive.code: -include_lib("common_test/include/ct_event.hrl").
  
  -include_lib("xmerl/include/xmerl.hrl").
  
  -define(eh, ct_test_support_eh).
  
  
negative.code:     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.
  