anchor.diff:  %% cover.
   
   run_test_case_apply({Mod,Func,Args,Name,RunInit,TimetrapData}) ->
  -    case os:getenv("TS_RUN_VALGRIND") of
  +    case is_valgrind() of
   	false ->
   	    ok;
  -	_ ->
  +	true ->
   	    os:putenv("VALGRIND_LOGFILE_INFIX",atom_to_list(Mod)++"."++
   		      atom_to_list(Func)++"-")
       end,
  
positive.code: 	{ 2, fun() -> has_lock_checking() end},
  	{ 3, fun() -> has_superfluous_schedulers() end},
  	{ 6, fun() -> is_debug() end},
  	{10, fun() -> is_cover() end}
      ]).
  
  timetrap_scale_factor(Scales) ->
  
negative.code: 	_ -> true
      end.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% is_valgrind() -> boolean()
  %%
  %% Returns true if valgrind is running, else false
  is_valgrind() ->
      case os:getenv("TS_RUN_VALGRIND") of
  	false -> false;
  	_ -> true
      end.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %%
  %% Apply given function and reply to caller or proxy.
  