anchor.diff:      ?line ["blurf/nisse"] = Wcf("*/nisse"),
       ?line [] = Wcf("mountain/*"),
       ?line [] = Wcf("xa/gurka"),
  +    ["blurf/nisse"] = Wcf("blurf/nisse"),
   
       %% Cleanup
       ?line del(Files),
  
positive.code:     ?line ["abc","abcdef"] = Wcf("a*{def,}"),
      ?line ["abc","abcdef"] = Wcf("a*{,def}"),
  
      %% Negative tests.
      ?line [] = Wcf("b*"),
      ?line [] = Wcf("bufflig"),
  
negative.code:     del(Files),
      foreach(fun(D) ->
  		    ok = file:del_dir(filename:join(Dir, D))
  	    end, Dirs2 ++ Dirs1 ++ Dirs0),
      do_wildcard_9(Dir, Wcf).
  
  do_wildcard_9(Dir, Wcf) ->
      Dirs0 = ["lib","lib/app","lib/app/ebin"],
      Dirs = [filename:join(Dir, D) || D <- Dirs0],
      [ok = file:make_dir(D) || D <- Dirs],
      Files0 = [filename:join("lib/app/ebin", F++".bar") ||
  		 F <- ["abc","foo","foobar"]],
      Files = [filename:join(Dir, F) || F <- Files0],
      [ok = file:write_file(F, <<"some content\n">>) || F <- Files],
      Files0 = Wcf("lib/app/ebin/*.bar"),
  
      %% Cleanup.
      del(Files),
      [ok = file:del_dir(D) || D <- lists:reverse(Dirs)],
      ok.
  
  
  fold_files(Config) when is_list(Config) ->
      ?line Dir = filename:join(?config(priv_dir, Config), "fold_files"),
  