anchor.diff:  	_ -> 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.
  
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: %% cover.
  
  run_test_case_apply({Mod,Func,Args,Name,RunInit,TimetrapData}) ->
      case is_valgrind() of
  	false ->
  	    ok;
  	true ->
  	    os:putenv("VALGRIND_LOGFILE_INFIX",atom_to_list(Mod)++"."++
  		      atom_to_list(Func)++"-")
      end,
  