anchor.diff:  epp(Config) when is_list(Config) ->
       Data = proplists:get_value(data_dir, Config),
       Dir = filename:absname(Data),		%Get rid of trailing slash.
  -    run(Dir, "factorial_epp 5",
  +    run(Config, Dir, "factorial_epp 5",
   	<<"factorial 5 = 120\nExitCode:0">>),
       ok.
   
  
positive.code: emulator_flags(Config) when is_list(Config) ->
      Data = proplists:get_value(data_dir, Config),
      Dir = filename:absname(Data),		%Get rid of trailing slash.
      run(Dir, "emulator_flags -arg1 arg2 arg3",
  	[<<"main:[\"-arg1\",\"arg2\",\"arg3\"]\n"
  	   "nostick:[{nostick,[]}]\n"
  	   "mnesia:[{mnesia,[\"dir\",\"a/directory\"]},{mnesia,[\"debug\",\"verbose\"]}]\n"
  
negative.code: delete_first(X, [X | Tail], Acc) -> lists:reverse(Acc, Tail);
  delete_first(X, [Y | Tail], Acc) -> delete_first(X, Tail, [Y | Acc]).
  
  tempnam(Config, Prefix) ->
      Dir = proplists:get_value(priv_dir, Config),
      File = filename:join(Dir, Prefix ++ ".stderr"),
      case file:delete(File) of
  	ok -> ok;
  	{error, enoent} -> ok
      end,
      case file:open(File, [write, exclusive, raw]) of
  	{ok, IoDev} ->
  	    ok = file:close(IoDev),
  	    ok = file:delete(File),
  	    File;
  	{error, Reason} ->
  	    io:format("Failed to create ~s: ~p\n", [File, Reason]),
  	    ct:fail(failed)
      end.
  
  get_data(Port, SoFar) ->
  