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

fix: missing pages caused by import of changed property type

Browse Source 
related to logseq/db-test#134
This commit is contained in:
Gabriel Horner
2024-10-10 09:32:34 -04:00
parent e0765b4462
commit 39994b6891
2 changed files with 25 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
deps/graph-parser/test/logseq/graph_parser/exporter_test.cljs vendored
View File

@@ -41,7 +41,13 @@
db)
first)))
(defn- find-block-by-property [db property property-value]
(defn- find-block-by-property [db property]
(d/q '[:find [(pull ?b [*]) ...]
:in $ ?prop %
:where (has-property ?b ?prop)]
db property (rules/extract-rules rules/db-query-dsl-rules [:has-property])))
(defn- find-block-by-property-value [db property property-value]
(->> (d/q '[:find [(pull ?b [*]) ...]
:in $ ?prop ?prop-value %
:where (property ?b ?prop ?prop-value)]
@@ -308,7 +314,7 @@
:logseq.property.table/ordered-columns [:block/title :user.property/prop-string :user.property/prop-num]
:logseq.property/query "(property :prop-string)"
:block/tags [:logseq.class/Query]}
(readable-properties @conn (find-block-by-property @conn :logseq.property/query "(property :prop-string)")))
(readable-properties @conn (find-block-by-property-value @conn :logseq.property/query "(property :prop-string)")))
"simple query block has correct query properties")
(is (= "For example, here's a query with title text:"
(:block/title (find-block-by-content @conn #"query with title text")))
@@ -359,7 +365,11 @@
"existing :node property value correctly saved as :default with full text")
(is (= #{"[[Gabriel]] [[Jakob]]"}
(:user.property/people (readable-properties @conn (find-block-by-content @conn #"pending block for :node"))))
"pending :node property value correctly saved as :default with full text")))
"pending :node property value correctly saved as :default with full text")
(is (some? (find-page-by-name @conn "Jakob"))
"Previous :node property value still exists")
(is (= 3 (count (find-block-by-property @conn :user.property/people)))
"Converted property has correct number of property values")))
(testing "replacing refs in :block/title"
(is (= 2