anchor.diff:      Public = <<"public">>,
       Secret = <<"secret">>,
       ok = cvmfs_lease:request_lease(U, P, Public, Secret),
  -    [{lease, P, U, Public, Secret, _}] = cvmfs_lease:get_leases(),
  +    [{lease, {P, <<>>}, U, Public, Secret, _}] = cvmfs_lease:get_leases(),
       ok = cvmfs_lease:clear_leases(),
       [] = cvmfs_lease:get_leases().
   
  
positive.code:     SleepTime = ?config(max_lease_time, Config) * 1000 + 10,
      ct:sleep(SleepTime),
      ok = cvmfs_lease:request_lease(U, P, Public, Secret),
      [{lease, P, U, Public, Secret, _}] = cvmfs_lease:get_leases().
  
  remove_lease_existing(_Config) ->
      U = <<"user">>,
  
negative.code:         ,init_per_testcase/2, end_per_testcase/2]).
  
  -export([new_lease/1, new_lease_busy/1, new_lease_expired/1
          ,new_lease_conflict/1, remove_lease_existing/1
          ,remove_lease_nonexisting/1, check_lease_valid/1
          ,check_lease_expired/1, check_invalid_lease/1
          ,get_lease_path_valid/1, get_lease_path_expired/1
          ,get_lease_path_invalid/1, clear_leases/1]).
  
  
  %% Tests description
  