anchor.diff:  
   
   %% Test that the the different time functions return
  -%% consistent results. (See the test case for assumptions
  -%% and limitations.)
  -consistency(Config) when is_list(Config) ->
  -    %% Test the following equations:
  -    %% 		date() & time() == erlang:localtime()
  -    %% 		erlang:universaltime() + timezone == erlang:localtime()
  +%% consistent results.
  +consistency(_Config) ->
  +    %% Test that:
  +    %% 	 * date() & time() gives the same time as erlang:localtime()
       %%
  -    %% Assumptions:
  -    %% 		Middle-European time zone, EU rules for daylight-saving time.
  -    %%
  -    %% Limitations:
  -    %% 		Localtime and universaltime must be in the same	month.
  -    %%	        Daylight-saving calculations are incorrect from the last
  -    %%		Sunday of March and October to the end of the month.
  +    %%   * the difference between erlang:universaltime() and
  +    %%     erlang:localtime() is reasonable (with assuming any
  +    %%     particular timezone)
   
       ok = compare_date_time_and_localtime(16),
  -    ok = compare_local_and_universal(16).
  +    compare_local_and_universal(16).
   
   compare_date_time_and_localtime(Times) when Times > 0 ->
       {Year, Mon, Day} = date(),
  
positive.code:     error.
  
  compare_local_and_universal(Times) when Times > 0 ->
      case compare(erlang:universaltime(), erlang:localtime()) of
  	true -> ok;
  	false -> compare_local_and_universal(Times-1)
      end;
  compare_local_and_universal(0) ->
      error.
  
  compare(Utc0, Local) ->
      io:format("local = ~p, utc = ~p", [Local, Utc0]),
      Utc = linear_time(Utc0)+effective_timezone(Utc0)*3600,
      case linear_time(Local) of
  	Utc -> true;
  	Other ->
  	    io:format("Failed: local = ~p, utc = ~p~n",
  		      [Other, Utc]),
  	    false
      end.
  
  %% This function converts a date and time to a linear time.
  
negative.code: 	0 -> 29;
  	_ -> 28
      end.
  
  %% Test (the bif) os:timestamp/0, which is something quite like, but not
  %% similar to erlang:now...
  