anchor.diff:  	    Coverage / Count
       end.
   
  +
   %% @doc print the total code coverage for the project
   -spec print_overall_percentage([number()]) -> ok.
   print_overall_percentage(Modules) ->
  
positive.code: %% @doc Run tests for each module that has a test/0 function
  -spec run_module_tests([atom()], [number()]) -> ok.
  run_module_tests([Module | T], Acc) ->
      eunit:test(Module),
      Percentage = print_code_coverage(Module),
      run_module_tests(T, [Percentage | Acc] );
  run_module_tests([], Percentages) ->
      Percentages.
  
  
negative.code: -spec to_percentage(float()) -> float().
  to_percentage(Value) ->
      Value * 100.
  
  %% @doc check to see if this module has eunit tests
  -spec has_tests(atom()) -> boolean().
  has_tests(Module) ->
      ModInfo = Module:module_info(),
      case lists:keyfind(exports, 1, ModInfo) of
  	false ->
  	    false;
  	{exports, ExportList}  ->
  	    case lists:keyfind(test, 1, ExportList) of
  		false ->
  		    false;
  		{test, 0} ->
  		    true;
  		_ ->
  		    false
  	    end
      end.
  