anchor.diff:  	 init_per_testcase/2,
   	 fin_per_testcase/2,
   	 wall_clock/1, wall_clock_zero_diff/1, wall_clock_update/1,
  -	 runtime/1, runtime_zero_diff/1, runtime_zero_update/1,
  +	 runtime/1, runtime_zero_diff/1,
   	 runtime_update/1, runtime_diff/1,
   	 run_queue/1, run_queue_one/1,
   	 reductions/1, reductions_big/1, garbage_collection/1, io/1,
  
positive.code: runtime_zero_diff1(0) ->
      ?line test_server:fail("statistics(runtime) never returned zero difference").
  
  runtime_zero_update(doc) ->
      "Test that the time differences returned by two calls to "
      "statistics(runtime) several seconds apart is zero.";
  runtime_zero_update(Config) when is_list(Config) ->
      case ?t:is_debug() of
  	false -> ?line runtime_zero_update1(6);
  	true -> {skip,"Unreliable in DEBUG build"}
      end.
  
  runtime_zero_update1(N) when N > 0 ->
      ?line {T1, _} = statistics(runtime),
      ?line receive after 7000 -> ok end,
      ?line case statistics(runtime) of
  	      {T, Td} when Td =< 80 ->
  		  test_server:format("ok, Runtime before: {~p, _} after: {~p, ~p}",
  				     [T1, T, Td]),
  		  ok;
  	      {T, R} ->
  		  test_server:format("nok, Runtime before: {~p, _} after: {~p, ~p}", 
  				     [T1, T, R]),
  		  runtime_zero_update1(N-1)
  	  end;
  runtime_zero_update1(0) ->
      ?line test_server:fail("statistics(runtime) never returned zero difference").
  
  runtime_update(doc) ->
      "Test that the statistics(runtime) returns a substanstially updated difference "
      "after running a process that takes all CPU power of the Erlang process "
      "for a second.";
  runtime_update(Config) when is_list(Config) ->
      case ?t:is_cover() of
  	false ->
  	    ?line process_flag(priority, high),
  	    ?line test_server:m_out_of_n(1, 10, fun runtime_update/0);
  	true ->
  	    {skip,"Cover-compiled"}
      end.
  
  runtime_update() ->
      ?line {T1,_} = statistics(runtime),
      ?line spawn_link(fun cpu_heavy/0),
      receive after 1000 -> ok end,
      ?line {T2,Diff} = statistics(runtime),
      ?line Delta = abs(Diff-1000),
      ?line test_server:format("T1 = ~p, T2 = ~p, Diff = ~p, abs(Diff-1000) = ~p",
  			     [T1,T2,Diff,Delta]),
      ?line if
  	      abs(Diff-1000) =:= Delta, Delta =< 100 ->
  		  ok
  	  end.
      
  cpu_heavy() ->
  
negative.code: 
  %%% Test statistics(runtime).
  
  runtime(suite) -> [runtime_zero_diff, runtime_update, runtime_diff].
  
  runtime_zero_diff(doc) ->
      "Tests that the difference between the times returned from two consectuitive "
  