anchor.diff:  
   -export([all/1,init_per_testcase/2,fin_per_testcase/2,
   	 wildcard_one/1,wildcard_two/1,wildcard_errors/1,
  -	 fold_files/1,otp_5960/1]).
  +	 fold_files/1,otp_5960/1,ensure_dir_eexist/1]).
   
   -import(lists, [foreach/2]).
   
  
positive.code:     ok.
  
  all(suite) ->
      [wildcard_one,wildcard_two,wildcard_errors,fold_files,otp_5960].
  
  wildcard_one(Config) when is_list(Config) ->
      ?line {ok,OldCwd} = file:get_cwd(),
  
negative.code:     ?line Name1 = filename:join(Dir, name1),
      ?line Name2 = filename:join(Dir, name2),
      ?line ok = filelib:ensure_dir(Name1), % parent is created
      ?line ok = filelib:ensure_dir(Name1), % repeating it should be OK
      ?line ok = filelib:ensure_dir(Name2), % parent already exists
      ?line ok = filelib:ensure_dir(Name2), % repeating it should be OK
      ?line Name3 = filename:join(Name1, name3),
      ?line {ok, FileInfo} = file:read_file_info(Dir),
      case os:type() of
  