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

validate entities that are changed per transact!

Browse Source 
This should help us catch bugs due to invalid data fairly quickly.
This only runs when in dev?
part of LOG-2818
This commit is contained in:
Gabriel Horner
2023-10-20 16:49:54 -04:00
parent 2859d20146
commit 4fd591620b
3 changed files with 38 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
deps/db/script/validate_client_db.cljs vendored
View File

@@ -86,16 +86,6 @@
(js/process.exit 1))
(println "Valid!"))))
(defn- datoms->entity-maps
"Returns entity maps for given :eavt datoms"
[datoms]
(->> datoms
(reduce (fn [acc m]
(if (contains? db-schema/card-many-attributes (:a m))
(update acc (:e m) update (:a m) (fnil conj #{}) (:v m))
(update acc (:e m) assoc (:a m) (:v m))))
{})))
(def spec
"Options spec"
{:help {:alias :h
@@ -119,7 +109,7 @@
(js/process.exit 1)))
conn (sqlite-cli/read-graph db-name)
datoms (d/datoms @conn :eavt)
ent-maps (datoms->entity-maps datoms)]
ent-maps (db-malli-schema/datoms->entity-maps datoms)]
(println "Read graph" (str db-name " with " (count datoms) " datoms, "
(count ent-maps) " entities and "
(count (mapcat :block/properties (vals ent-maps))) " properties"))