anchor.diff:  %%
   %%            Fun = function()
   %%
  -%% @throws  {error, no_exception_thrown_by_test} 
  +%% @throws  {error, no_exception_thrown_by_test}
   %%
   %% @doc     test case support function, used to check if call Fun()
   %%          fails - as expected
  
positive.code: 	]).
  
  
  %%====================================================================
  %% External functions
  %%====================================================================
  
negative.code: %% @end
  %%--------------------------------------------------------------------
  compare_records(T1, T2, ShouldChange) when is_tuple(T1), is_tuple(T2), is_list(ShouldChange) ->
      %% Two records as input, see if they are standard ones (from siprecords.hrl), and
      %% otherwise use numbers istead of field names
      Fields =
  	case test_record_info(element(1, T1)) of
  	    undefined ->
  		lists:seq(1, size(T1) - 1);
  	    T1_Fields ->
  		T1_Fields
  	end,
      compare_records(T1, T2, ShouldChange, Fields).
  
  %%--------------------------------------------------------------------
  