anchor.diff:  load_all_modules(Application, TranslatorSupPid, OutDir) ->
       lager:info("Loading application ~p", [Application]),
       [{_, TranslatorPid, _, _}]	= supervisor:which_children(TranslatorSupPid),
  -    {ok, TestModules}                = load_dirs(boss_files_util:test_path(),
  -					    Application, 
  -					    OutDir, fun compile/2),
  +
  +    {ok, TestModules}           = load_test_modules(Application, OutDir),
       {ok, LibModules}		= load_libraries(Application, OutDir),
       {ok, WebSocketModules}	= load_services_websockets(Application, OutDir),
       {ok, MailModules}		= load_mail_controllers(Application, OutDir),
  
positive.code:     FullFiles = lists:map(fun(F) -> filename:join([Dir, F]) end, Files),
      {ModuleList, ErrorList} = compile_and_accumulate_errors(
          FullFiles, Application, OutDir, Compiler, {[], []}),
      case length(ErrorList) of
          0 ->
              {ok, ModuleList};
  
negative.code:     end.
  
  %% Only serve files that end in ".erl"
         
  list_files(Dir) ->
      case file:list_dir(Dir) of
  	{ok, FileList} ->
  