chore: use internal-page? helper

This commit is contained in:
Gabriel Horner
2024-10-03 11:52:23 -04:00
parent 21f3adce9b
commit 830c275d54
6 changed files with 6 additions and 6 deletions

View File

@@ -182,7 +182,7 @@
(is (= 8
(count (->> (d/q '[:find [(pull ?b [:block/title :block/type]) ...]
:where [?b :block/title] [_ :block/page ?b]] @conn)
(filter #(= "page" (:block/type %))))))
(filter ldb/internal-page?))))
"Correct number of pages with block content")
(is (= 4 (count (d/datoms @conn :avet :block/type "whiteboard"))))
(is (= 1 (count @(:ignored-properties import-state))) ":filters should be the only ignored property")