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

test(rtc): update ut migration-results=>client-ops

Browse Source
This commit is contained in:
rcmerci
2025-08-15 16:18:05 +08:00
parent 51ba06aa9f
commit 96ecab44fc
1 changed files with 45 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
src/test/frontend/worker/rtc/migrate_test.cljs
View File

@@ -2,30 +2,65 @@
(:require ["fs" :as fs-node]
[cljs.pprint :as pp]
[cljs.test :refer [deftest is testing]]
[clojure.set :as set]
[datascript.core :as d]
[frontend.worker.db.migrate :as db-migrate]
[frontend.worker.rtc.migrate :as rtc-migrate]
[logseq.db :as ldb]))
[logseq.db :as ldb]
[logseq.db.frontend.schema :as db-schema]))
(defn- get-specific-result
[upgrade-result-coll version]
(let [parsed-version (db-schema/parse-schema-version version)]
(some (fn [{:keys [tx-data] :as upgrade-result}]
(when (some (fn [datom]
(and (= :kv/value (:a datom))
(= parsed-version (db-schema/parse-schema-version (:v datom)))))
tx-data)
upgrade-result))
upgrade-result-coll)))
(deftest ^:focus migration-results=>client-ops
(testing "65.2 => 65.3"
(testing "65.2 => 65.10"
(let [db-transit (str (fs-node/readFileSync "src/test/migration/65.2.transit"))
db (ldb/read-transit-str db-transit)
conn (d/conn-from-db db)
migration-result (db-migrate/migrate conn {:target-version "65.3"})
migration-result (db-migrate/migrate conn {:target-version "65.10"})
client-ops (rtc-migrate/migration-results=>client-ops migration-result)]
(prn :migration-result "================================================================")
(pp/pprint (map (fn [r] [(:tx-data r) (select-keys (:migrate-updates r) [:rename-db-idents])])
(:upgrade-result-coll migration-result)))
(pp/pprint (merge (select-keys migration-result [:from-version :to-version])
{:upgrade-result-coll
(map (fn [r] [(:tx-data r) (select-keys (:migrate-updates r) [:rename-db-idents])])
(:upgrade-result-coll migration-result))}))
(prn :client-ops "================================================================")
(pp/pprint client-ops)
(testing "client-ops are generated correctly from migration-result"
(is (seq client-ops) "Client ops should not be empty")
(testing "check schema-version"
(let [last-op (last client-ops)
schema-version-update? (= :update-kv-value (first last-op))]
(is schema-version-update? "The last op should be to update schema version")
(when schema-version-update?
(is (= :logseq.kv/schema-version (get-in last-op [2 :db-ident])) "The schema version key should be correct")
(is (= (:to-version migration-result) (get-in last-op [2 :value])) "The schema version should be updated to the new version")))))))
(is (= (:to-version migration-result) (get-in last-op [2 :value])) "The schema version should be updated to the new version"))))
(testing "check 65.3"
(let [upgrade-result-65-3 (get-specific-result (:upgrade-result-coll migration-result) "65.3")
rename-db-idents (set (:rename-db-idents (:migrate-updates upgrade-result-65-3)))
rename-db-ident-op-values (set (keep (fn [op] (when (= :rename-db-ident (first op)) (last op))) client-ops))]
(is (some? upgrade-result-65-3))
(is (= rename-db-idents rename-db-ident-op-values))))
(testing "check 65.10"
(let [upgrade-result-65-10 (get-specific-result (:upgrade-result-coll migration-result) "65.10")
{:keys [tx-data db-after]} upgrade-result-65-10]
(is (some? upgrade-result-65-10))
(let [tx-id-65-10 (:tx (first tx-data))
ents (map (partial d/entity db-after)
(set (keep (fn [datom] (when (:added datom) (:e datom))) tx-data)))
block-uuids-in-tx-data (set (keep :block/uuid ents))
block-uuids-in-client-ops (set
(keep
(fn [[op tx-id value]]
(when (and (= tx-id tx-id-65-10)
(contains? #{:update :update-page :move} op))
(:block-uuid value)))
client-ops))]
(is (= block-uuids-in-tx-data block-uuids-in-client-ops))))))))