anchor.diff:      Target = filename:join(TargetDir, SourceBase ++ Ext),
       true = exists(Target).
   
  -files(Config, Name) ->
  -    ?line code:delete(simple),
  -    ?line code:purge(simple),
  -    ?line DataDir = ?config(data_dir, Config),
  -    ?line PrivDir = ?config(priv_dir, Config),
  -    ?line Simple = filename:join(DataDir, "simple"),
  -    ?line TargetDir = filename:join(PrivDir, Name),
  -    ?line ok = file:make_dir(TargetDir),
  -    ?line Target = filename:join(TargetDir, "simple"++code:objfile_extension()),
  -    {Simple, Target}.
  -
  +get_files(Config, Module, OutputName) ->
  +    code:delete(Module),
  +    code:purge(Module),
  +    DataDir = ?config(data_dir, Config),
  +    PrivDir = ?config(priv_dir, Config),
  +    Src = filename:join(DataDir, atom_to_list(Module)),
  +    TargetDir = filename:join(PrivDir, OutputName),
  +    ok = file:make_dir(TargetDir),
  +    File = atom_to_list(Module) ++ code:objfile_extension(),
  +    Target = filename:join(TargetDir, File),
  +    {Src, Target}.
   
   run(Target, Func, Args) ->
       ?line Module = list_to_atom(filename:rootname(filename:basename(Target))),
  
positive.code: 
  binary(Config) when is_list(Config) ->
      ?line Dog = test_server:timetrap(test_server:seconds(60)),
      ?line {Simple, Target} = files(Config, "binary"),
      ?line {ok, simple, Binary} = compile:file(Simple, [binary]),
      ?line code:load_binary(simple, Target, Binary),
      ?line passed = simple:test(),
  
negative.code:     ReplyTo ! {result, Fun()}.
  
  env(Config) when is_list(Config) ->
      {Simple,Target} = get_files(Config, simple, env),
      ?line {ok,Cwd} = file:get_cwd(),
      ?line ok = file:set_cwd(filename:dirname(Target)),
  
  