fix graph-parser tests

This commit is contained in:
Peng Xiao
2022-07-13 14:28:11 +08:00
parent a84ec7a5f3
commit deb0268ac5
2 changed files with 1 additions and 2 deletions

View File

@@ -7,7 +7,6 @@
[text]
(let [{:keys [blocks]} (extract/extract "a.md" text {:block-pattern "-"})
lefts (map (juxt :block/parent :block/left) blocks)]
(pprint/pprint blocks)
(if (not= (count lefts) (count (distinct lefts)))
(do
(pprint/pprint (map (fn [x] (select-keys x [:block/uuid :block/level :block/content :block/left])) blocks))