anchor.diff:  
   %% @doc Prepare for running the tests. This mostly means seting up the
   %% coverage tools.
  -%% @private
   -spec prepare_for_tests(sin_config:config(), string(), [atom()]) -> ok.
   prepare_for_tests(BuildRef, AppName, Modules) ->
       BuildDir = sin_config:get_value(BuildRef, "build.dir"),
  
positive.code:     file:write_file(IndexFile, list_to_binary(Frame), [write]),
      file:write_file(CList, list_to_binary(CoverageIndex), [write]).
  
  %% @doc
  %%  Render the list of modules into a deep list of links.
  %% @private
  -spec make_index([{string(), atom()}], list()) -> list().
  make_index([{File, Module} | T], Acc) ->
      Acc2 = ["<LI><A href=\"", File, "\" target=\"bodyarea\">", atom_to_list(Module),
              "</A></LI>" | Acc],
      make_index(T, Acc2);
  make_index([], Acc) ->
      Acc.
  
  %% @doc Instrument all of the modules for code coverage checks.
  %% @private
  -spec setup_code_coverage([atom()]) -> ok.
  setup_code_coverage(Modules) ->
      lists:foreach(
  
negative.code:              "    <FRAME name=\"bodyarea\" src=\"", Name, "\">\n"
               "    <NOFRAMES>\n"
               "      <P>This frameset document contains:\n"
               "        <A href=\"coverage_index.html\">Index of coverage"
  	     " reports</A>\n"
               "      </P>\n"
               "    </NOFRAMES>\n"
               "</FRAMESET>\n"
               "</HTML>\n"],
      CoverageIndex = ["<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 "
  		     "Transitional//EN\"\n"
                       "   \"http://www.w3.org/TR/html4/loose.dtd\">\n"
                       "<HTML>\n"
                       "<HEAD>\n"
  