anchor.diff:  -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.
  
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: 	    Coverage / Count
      end.
  
  
  %% @doc print the total code coverage for the project
  -spec print_overall_percentage([number()]) -> ok.
  print_overall_percentage(Modules) ->
  