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

enhance: infer property schema and add new-pages from properties

Browse Source 
for sqlite-build graphs. Also fixed numbered page query not working for
db graphs and related tests
This commit is contained in:
Gabriel Horner
2024-06-07 12:06:55 -04:00
parent 14368026ab
commit 039da828ac
4 changed files with 113 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
src/test/frontend/db/query_dsl_test.cljs
View File

@@ -71,6 +71,13 @@
"(and \"for #clojure\" #foo)"
"(and \"for #clojure\" #tag foo)")))
(defn- testable-content
"Only test :block/content up to page-ref as page-ref content varies between db and file graphs"
[{:block/keys [content]}]
(some->> content
(re-find #"[^\[]+")
str/trim))
(defn- block-property-queries-test
[]
(load-test-files [{:file/path "journals/2022_02_28.md"
@@ -82,11 +89,12 @@ prop-num:: 2000
prop-a:: val-a
prop-b:: val-b
- b3
prop-d:: [[no-space-link]]
prop-c:: [[page a]], [[page b]], [[page c]]
prop-linked-num:: [[3000]]
prop-d:: [[no-space-link]]
- b4
prop-d:: nada"}])
prop-d:: [[nada]]"}])
(testing "Blocks have given property value"
(is (= #{"b1" "b2"}
(set (map (comp first str/split-lines :block/content)
@@ -118,10 +126,11 @@ prop-d:: nada"}])
(dsl-query "(or (property prop-c \"page c\") (property prop-b val-b))"))))
"Blocks have ORed property values")
(is (= ["b1"]
(map (comp first str/split-lines :block/content)
(dsl-query "(property prop-num 2000)")))
"Blocks have integer property value")
;; FIXME: Once :number property approach resolved
#_(is (= ["b1"]
(map (comp first str/split-lines :block/content)
(dsl-query "(property prop-num 2000)")))
"Blocks have integer property value")
(is (= ["b3"]
(map (comp first str/split-lines :block/content)
@@ -134,26 +143,26 @@ prop-d:: nada"}])
"Blocks have property value with no space")
(is (= ["b3" "b4"]
(map (comp first str/split-lines :block/content)
(dsl-query "(property prop-d)")))
"Blocks that have a property"))
(map (comp first str/split-lines :block/content)
(dsl-query "(property prop-d)")))
"Blocks that have a property"))
(deftest block-property-queries
(deftest ^:done block-property-queries
(testing "block property tests with default config"
(test-helper/with-config {}
(block-property-queries-test))))
(deftest block-property-query-performance
(deftest ^:done block-property-query-performance
(let [pages (->> (repeat 10 {:tags ["tag1" "tag2"]})
(map-indexed (fn [idx {:keys [tags]}]
{:file/path (str "pages/page" idx ".md")
:file/content (if (seq tags)
(str "page-prop:: b\n- block for page" idx
"\ntags:: " (str/join ", " (map page-ref/->page-ref tags)))
"\ntagz:: " (str/join ", " (map page-ref/->page-ref tags)))
"")})))
_ (load-test-files pages)
{:keys [result time]}
(util/with-time (dsl-query "(and (property tags tag1) (property tags tag2))"))]
(util/with-time (dsl-query "(and (property tagz tag1) (property tagz tag2))"))]
;; Specific number isn't as important as ensuring query doesn't take orders
;; of magnitude longer
(is (> 40.0 time) "multi property query perf is reasonable")
@@ -302,13 +311,6 @@ prop-d:: nada"}])
(map :block/content (dsl-query "(priority a b c)")))
"Three arg queries and args that have no match"))
(defn- testable-content
"Only test :block/content up to page-ref as page-ref content varies between db and file graphs"
[{:block/keys [content]}]
(some->> content
(re-find #"[^\[]+")
str/trim))
(deftest ^:done nested-boolean-queries
(load-test-files [{:file/path "pages/page1.md"
:file/content "foo:: bar