clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-24 14:14:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: two clients sim test

Browse Source
This commit is contained in:
Tienson Qin
2026-01-28 09:10:23 +08:00
parent 8e815b85b8
commit 2c5806dc7e
1 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/test/frontend/worker/db_sync_sim_test.cljs
View File

@@ -263,16 +263,25 @@
(reset! progress? true)))
(when @progress?
(recur (inc i))))))
(let [conns (keep (fn [c] (when (:online? c) (:conn c))) clients)
block-counts (map #(count (d/datoms (deref %) :avet :block/uuid)) conns)]
(when-not (= (count (distinct block-counts)) 1)
(throw (ex-info "blocks count not equal after sync"
{:block-counts block-counts
:clients (keep (fn [c]
(when (:online? c)
{:repo (:repo c)
:datoms-count (count (d/datoms (deref (:conn c)) :avet :block/uuid))}))
clients)})))))
(let [conns (keep (fn [c] (when (:online? c) (:conn c))) clients)]
(when (seq conns)
(let [block-counts (map #(count (d/datoms (deref %) :avet :block/uuid)) conns)]
(when-not (= (count (distinct block-counts)) 1)
(throw (ex-info "blocks count not equal after sync"
{:block-counts block-counts
:clients (keep (fn [c]
(when (:online? c)
{:repo (:repo c)
:datoms-count (count (d/datoms (deref (:conn c)) :avet :block/uuid))}))
clients)})))))))
(deftest sync-loop-all-offline-no-error-test
(testing "sync-loop tolerates all clients offline"
(let [server (make-server)
conn (db-test/create-conn)
client (make-client repo-a)
clients [{:repo repo-a :conn conn :client client :online? false}]]
(is (nil? (sync-loop! server clients))))))
(defn- db-issues [db]
(let [blocks (->> (d/q '[:find [?e ...]