anchor.diff:      ok = test_verify_tuples([PIDF_XML2_Tuple1], ParseCT_Tuples2),
   
       autotest:mark(?LINE, "set_pidf_for_user/4 - 3"),
  -    %% test same etag
  -    {error, etag_already_exists} = set_pidf_for_user(SPFU_User1, SPFU_ETag2, 5, "application/pidf+xml", PIDF_XML2, #event_ctx{}),
  -
  -
  -    %% refresh_pidf_user_etag(User, ETag, Expires, NewETag)
  +    %% test same etag, and also test max Expires value
  +    {error, etag_already_exists} =
  +	set_pidf_for_user(SPFU_User1, SPFU_ETag2, ?EXPIRES_UPPER_LIMIT, "application/pidf+xml",
  +			  PIDF_XML2, #event_ctx{}),
  +
  +    autotest:mark(?LINE, "set_pidf_for_user/4 - 4.1"),
  +    %% test out of bounds Expires
  +    {error, expires_out_of_bounds} =
  +	set_pidf_for_user(SPFU_User1, SPFU_ETag2, ?EXPIRES_LOWER_LIMIT - 1, "application/pidf+xml",
  +			  PIDF_XML2, #event_ctx{}),
  +
  +    autotest:mark(?LINE, "set_pidf_for_user/4 - 4.2"),
  +    %% test out of bounds Expires
  +    {error, expires_out_of_bounds} =
  +	set_pidf_for_user(SPFU_User1, SPFU_ETag2, ?EXPIRES_UPPER_LIMIT + 1, "application/pidf+xml",
  +			  PIDF_XML2, #event_ctx{}),
  +
  +
  +    %% refresh_pidf_user_etag(User, ETag, NewExpires, NewETag)
       %%--------------------------------------------------------------------
       autotest:mark(?LINE, "refresh_pidf_user_etag/4 - 1.1"),
       %% update first entry from previous test with new expires-time
  
positive.code: 			       }
  		    ]).
  
  %%====================================================================
  %% External functions
  %%====================================================================
  
negative.code: %%           etag ETag. Also changes the ETag to a new value, because
  %%           of how the RFC is written. I don't know why the ETag has
  %%           to change. As a validiator of sequentiality perhaps.
  %% Returns : ok | nomatch | {error, Reason}
  %%           Reason = atom
  %%--------------------------------------------------------------------
  refresh_pidf_user_etag(_User, _ETag, NewExpires, _NewETag) when is_integer(NewExpires) andalso 
                                                                  (NewExpires < ?EXPIRES_LOWER_LIMIT orelse
                                                                   NewExpires > ?EXPIRES_UPPER_LIMIT) ->
      {error, expires_out_of_bounds};
  refresh_pidf_user_etag(User, ETag, NewExpires, NewETag) when is_list(User) ->
      io:format("EXPIRES ~p > ~p == ~p, < ~p == ~p~n", [NewExpires, ?EXPIRES_UPPER_LIMIT,
  						      NewExpires > ?EXPIRES_UPPER_LIMIT,
  						      ?EXPIRES_LOWER_LIMIT,
  						      NewExpires < ?EXPIRES_LOWER_LIMIT]),
      UseExpires =
  	if
  	    is_integer(NewExpires) ->
  