chore: print too much in testcase

This commit is contained in:
rcmerci
2025-09-10 15:18:54 +08:00
parent d62fa56a3f
commit 6ff7d14f3a

View File

@@ -1,6 +1,6 @@
(ns frontend.worker.rtc.migrate-test
(:require ["fs" :as fs-node]
[cljs.pprint :as pp]
;; [cljs.pprint :as pp]
[cljs.test :refer [deftest is testing]]
[datascript.core :as d]
[frontend.worker.db.migrate :as db-migrate]
@@ -26,13 +26,13 @@
conn (d/conn-from-db db)
migration-result (db-migrate/migrate conn {:target-version "65.11"})
client-ops (rtc-migrate/migration-results=>client-ops migration-result)]
(prn :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)
;; (prn :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 "check schema-version"
(let [last-op (last client-ops)
schema-version-update? (= :update-kv-value (first last-op))]