clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-05 11:26:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

test(rtc): add insert-300-blocks case

Browse Source
This commit is contained in:
rcmerci
2024-08-30 22:30:44 +08:00
parent 4c5a861da8
commit fde4e0d3cf
6 changed files with 49 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/main/frontend/worker/rtc/client.cljs
View File

@@ -347,7 +347,7 @@
(rollback repo block-ops-map-coll)
;; else
(do (rollback repo block-ops-map-coll)
(throw (ex-info "Unavailable" {:remote-ex remote-ex})))))
(throw (ex-info "Unavailable1" {:remote-ex remote-ex})))))
(do (assert (pos? (:t r)) r)
(r.remote-update/apply-remote-update
@@ -367,7 +367,7 @@
:graph-lock-missing (throw r.ex/ex-remote-graph-lock-missing)
:rtc.exception/get-s3-object-failed nil
;;else
(throw (ex-info "Unavailable" {:remote-ex remote-ex}))))
(throw (ex-info "Unavailable3" {:remote-ex remote-ex}))))
(do (assert (pos? (:t r)) r)
(r.remote-update/apply-remote-update
graph-uuid repo conn date-formatter {:type :remote-update :value r} add-log-fn)

5
src/main/frontend/worker/rtc/const.cljs
View File

@@ -259,4 +259,7 @@
(def data-to-ws-encoder (m/encoder data-to-ws-schema (mt/transformer
mt/string-transformer
(mt/key-transformer {:encode m/-keyword->string}))))
(def data-to-ws-coercer (m/coercer data-to-ws-schema mt/string-transformer nil #(m/-fail! ::data-to-ws-schema %)))
(def data-to-ws-coercer (m/coercer data-to-ws-schema mt/string-transformer nil
#(do
(prn ::data-to-ws-schema %)
(m/-fail! ::data-to-ws-schema %))))

2
src/main/frontend/worker/rtc/skeleton.cljs
View File

@@ -73,7 +73,7 @@
:db-ident-blocks db-ident-blocks
:schema-version (get-schema-version db)}))]
(if-let [remote-ex (:ex-data r)]
(throw (ex-info "Unavailable" {:remote-ex remote-ex}))
(throw (ex-info "Unavailable2" {:remote-ex remote-ex}))
(let [server-only-db-ident-blocks (some-> (:server-only-db-ident-blocks r)
ldb/read-transit-str)]
(when (seq server-only-db-ident-blocks)