add test cases for session locking

test/gms/test/db.clj

@@ -321,10 +321,49 @@
         session-1 (second (first (db/create-session<! @connection {:name "Test Session 1"})))]
     (is (= (db/get-sessions @connection {})
            (list {:id ,session-1
-                  :name "Test Session 1"})))
+                  :name "Test Session 1"
+                  :locked false})))
     (let [session-2 (second (first (db/create-session<! @connection {:name "Test Session 2"})))]
       (is (= (db/get-sessions @connection {})
              (list {:id session-2
-                    :name "Test Session 2"}
+                    :name "Test Session 2"
+                    :locked false}
                    {:id session-1
-                    :name "Test Session 1"}))))))
+                    :name "Test Session 1"
+                    :locked false})))
+      (db/lock-session! @connection {:session session-2})
+      (is (= (db/session-locked? @connection {:session session-1})
+             {:locked false}))
+      (is (= (db/session-locked? @connection {:session session-2})
+             {:locked true}))
+      (is (= (db/get-sessions @connection {})
+             (list {:id session-2
+                    :name "Test Session 2"
+                    :locked true}
+                   {:id session-1
+                    :name "Test Session 1"
+                    :locked false})))
+      (db/unlock-session! @connection {:session session-1})
+      (is (= (db/session-locked? @connection {:session session-1})
+             {:locked false}))
+      (is (= (db/session-locked? @connection {:session session-2})
+             {:locked true}))
+      (is (= (db/get-sessions @connection {})
+             (list {:id session-2
+                    :name "Test Session 2"
+                    :locked true}
+                   {:id session-1
+                    :name "Test Session 1"
+                    :locked false})))
+      (db/unlock-session! @connection {:session session-2})
+      (is (= (db/session-locked? @connection {:session session-1})
+             {:locked false}))
+      (is (= (db/session-locked? @connection {:session session-2})
+             {:locked false}))
+      (is (= (db/get-sessions @connection {})
+             (list {:id session-2
+                    :name "Test Session 2"
+                    :locked false}
+                   {:id session-1
+                    :name "Test Session 1"
+                    :locked false}))))))