anchor.diff:                          name = "New User",
                           teams = ["New team(team desc)", "Another team(another desc)"],
                           email_list = ["new@email.com"],
  -                        dn_list = ["O=new-dn"]
  +                        dn_list = ["O=new-dn"],
  +                        quota_doc = "quota_uuid"
                       },
                       % #veil_document encapsulating user record
                       NewUserRecord = #veil_document{record = NewUser},
  
positive.code:                                     {dn, DN} when is_list(DN) -> {ok, #veil_document{record = #user{}}};
                                      _ -> {error, reason}
                                  end;
                              (dao_vfs, remove_file, _, _) -> ok
                          end),
                      ?assertEqual(ok, user_logic:remove_user({login, "login"})),
                      ?assertEqual(ok, user_logic:remove_user({email, "email"})),
  
negative.code:                                     NewUser -> {ok, "uuid"};
                                      _ -> throw(error)
                                  end;
                              (dao_users, save_quota, _, _) -> {ok, "quota_uuid"};
                              (dao_vfs, save_new_file, _, _) -> {ok, "file_uuid"};
                              (dao_vfs, list_storage, [], _) ->
                                  {ok, []}
  