anchor.diff:      io:format("Cover analysis in ~s~n", [IndexFilename]).
   
   analyze_module(CoverBase, Module) ->
  -    {ok, Filename} = 
  +    {ok, Filename} =
           cover:analyze_to_file(
             Module,
             filename:join(CoverBase, atom_to_list(Module)++".COVER.html"),
  
positive.code:                   [], Modules),
      IndexFilename = filename:join([CoverBase, "index.html"]),
      {ok, Index} = file:open(IndexFilename, [write]),
      {LineTotal, CoverTotal} = 
          lists:foldl(fun({_,_,Lines,Covered}, {LineAcc, CovAcc}) ->
                              {LineAcc+Lines, CovAcc+Covered}
                      end, {0,0}, Coverages),
  
negative.code:                    (M) when M =:= json_pp ->
                          false;
                     (M) ->
                          proplists:get_value(test, M:module_info(exports)) == 0 orelse
                          nomatch == re:run(atom_to_list(M), NonTestRe)
                  end,
                  proplists:get_value(modules, App)),
  
      crypto:start(),
      start_cover(Modules),
      eunit:test(Modules, [verbose]),
  