Dasemu
40631362b3
Establishes version control for the personal Logseq DB fork before starting the server-client architecture migration and domain features described in docs/agent-guide and the approved implementation plan. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
43 lines
1.7 KiB
Clojure
43 lines
1.7 KiB
Clojure
(ns logseq.db-sync.malli-schema-test
|
|
(:require [cljs.test :refer [deftest is testing]]
|
|
[logseq.db-sync.malli-schema :as db-sync-schema]))
|
|
|
|
(def ^:private request-samples
|
|
{:graphs/create {:graph-name "Demo"}
|
|
:graph-members/create {:email "user@example.com"}
|
|
:graph-members/update {:role "member"}
|
|
:sync/tx-batch {:t-before 0 :txs []}
|
|
:e2ee/user-keys {:public-key "public"
|
|
:encrypted-private-key "private"}
|
|
:e2ee/graph-aes-key {:encrypted-aes-key "aes"}
|
|
:e2ee/grant-access {:target-user-email+encrypted-aes-key-coll
|
|
[{:email "user@example.com"
|
|
:encrypted-aes-key "aes"}]}})
|
|
|
|
(defn- coerce-request
|
|
[schema-key body]
|
|
((get db-sync-schema/http-request-coercers schema-key) body))
|
|
|
|
(deftest http-request-client-revision-is-optional-test
|
|
(doseq [[schema-key body] request-samples]
|
|
(testing schema-key
|
|
(is (= body (coerce-request schema-key body))))))
|
|
|
|
(deftest tx-batch-request-client-revision-accepts-string-test
|
|
(let [body' (assoc (:sync/tx-batch request-samples)
|
|
:client-revision "test-revision")]
|
|
(is (= body' (coerce-request :sync/tx-batch body')))))
|
|
|
|
(deftest ws-tx-batch-client-revision-accepts-string-test
|
|
(let [body {:type "tx/batch"
|
|
:t-before 0
|
|
:txs []
|
|
:client-revision "test-revision"}]
|
|
(is (= body (db-sync-schema/ws-client-message-coercer body)))))
|
|
|
|
(deftest tx-batch-request-client-revision-rejects-non-string-test
|
|
(is (thrown? js/Error
|
|
(coerce-request :sync/tx-batch
|
|
(assoc (:sync/tx-batch request-samples)
|
|
:client-revision 42)))))
|