anchor.diff:      case compile:file(File, Opts) of
           {ok, _M, Ws} -> warnings(File, Ws);
           {error, [{File,Es}], []} -> {errors, Es, []};
  -        {error, [{File,Es}], [{File,Ws}]} -> {error, Es, Ws}
  +        {error, [{File,Es}], [{File,Ws}]} -> {errors, Es, Ws}
       end.
   
   comp_compare(T, T) ->
  
positive.code: run_test(Config, Extra, Body) ->
      run_test(Config, Extra, {cres,Body,[]}).
  
  wait_for_expected(R, Before, SourceFile, Wait) ->
      Ms = erlang:process_info(self(),messages),
      After = {get(), pps(), ets:all(), Ms},
      case {R, After} of
          {ok, Before} ->
              ok;
          _ when Wait ->
              timer:sleep(1000),
              wait_for_expected(R, Before, SourceFile, false);
  
negative.code:     [{P,process_info(P, registered_name),
        safe_second_element(process_info(P, initial_call))} || 
          P <- processes(), is_process_alive(P)].
  
  proc_reg_name({registered_name, Name}) -> Name;
  proc_reg_name([]) -> no_reg_name.
  
  safe_second_element({_,Info}) -> Info;
  safe_second_element(Other) -> Other.
  