user: Add update! function to user entity

src/apossiblespace/parts/entity/user.clj

@@ -2,8 +2,23 @@
   (:require
    [apossiblespace.parts.db :as db]))
 
+(def allowed-update-fields #{:email :display_name :password})
+
+(defn- validate-attrs [attrs]
+  (when (= {} attrs) (throw (ex-info "Nothing to update" {:type :validation})))
+  (when-let [{:keys [password password_confirmation]} attrs]
+    (when (and password (not= password password_confirmation))
+      (throw (ex-info "Password and confirmation do not match" {:type :validation})))
+  attrs))
+
+(defn- sanitize-attrs [attrs]
+  (-> attrs
+      (select-keys allowed-update-fields)
+      )
+  (select-keys attrs allowed-update-fields))
+
 (defn fetch
-  "Retrieve a user record from the database, or throw if not found"
+  "Retrieve a user record from the database"
   [id]
   (if-let [user (db/query-one
                  (db/sql-format
@@ -12,3 +27,14 @@
                    :where [:= :id id]}))]
     user
     (throw (ex-info "User not found" {:type :not-found}))))
+
+(defn update!
+  "Update a user record with provided attributes"
+  [attrs]
+  (when (not (contains? attrs :id)) (throw (ex-info "Missing User ID" {:type :validation})))
+  (let [id (:id attrs)
+        sanitized-attrs (-> attrs
+                            sanitize-attrs
+                            validate-attrs)
+        updated-user (first (db/update! :users sanitized-attrs [:= :id id]))]
+    updated-user))

test/apossiblespace/parts/entity/user_test.clj

@@ -16,3 +16,11 @@
   (testing "throws when an invalid ID is passed"
     (is (thrown-with-msg? clojure.lang.ExceptionInfo #"User not found"
                           (user/fetch "random")))))
+
+(deftest test-update!
+  (testing "saves the user entity to the database"
+    (let [db-user (register-test-user)
+          updated-user (user/update!
+                        {:id (:id db-user)
+                         :display_name "Bobby"})]
+      (is (= (:display_name updated-user) "Bobby")))))