anchor.diff:      io:format("~p: ~p\n", [Line,Diff]),
       Value.
       
  -start_node(Name, Args) ->
  -    case test_server:start_node(Name, slave, [{args, Args}]) of
  -	{ok, Node} ->
  -	    {ok, Node};
  -	Error  ->
  -	    ct:fail(Error)
  -    end.
  -
   from(H, [H | T]) -> T;
   from(H, [_ | T]) -> from(H, T);
   from(_, []) -> [].
  
positive.code:     io:format("Result: ~p\n",[CompRc0]),
      {ok,_Mod} = CompRc0,
  
      Node = case StartNode of
  	       false ->
  		   node();
  	       true ->
  		   Pa = "-pa " ++ filename:dirname(code:which(?MODULE)),
  		   {ok,Node0} = start_node(compiler, Pa),
  		   Node0
  	   end,
  		   
      ok = rpc:call(Node, ?MODULE, load_and_call, [Out, Module]),
      load_and_call(Out, Module),
  
      ct:timetrap(Timetrap),
  
negative.code: -define(TC(Body), tc(fun() -> Body end, ?LINE)).
  
  try_it(Module, Conf) ->
      Timetrap = {minutes,10},
      OtherOpts = [],			%Can be changed to [time] if needed
      Src = filename:join(proplists:get_value(data_dir, Conf),
  			atom_to_list(Module)),
  