chore: fix tests

This commit is contained in:
Tienson Qin
2020-12-21 17:00:36 +08:00
parent 202a49b134
commit bdfdf4d6d8

View File

@@ -14,6 +14,29 @@
(f)
(conn/destroy-all!))
(deftest test-page-alias-with-multiple-alias
[]
(run-db!
(fn []
(let [files [{:file/path "a.md"
:file/content "---\ntitle: a\nalias: b, c\n---"}
{:file/path "b.md"
:file/content "---\ntitle: b\nalias: a, d\n---"}
{:file/path "e.md"
:file/content "---\ntitle: e\n---\n## ref to [[b]]"}]
_ (repo-handler/parse-files-and-load-to-db! test-db files {:re-render? false})
a-aliases (model/page-alias-set test-db "a")
b-aliases (model/page-alias-set test-db "b")
alias-names (model/get-page-alias-names test-db "a")
b-ref-blocks (model/get-page-referenced-blocks test-db "b")
a-ref-blocks (model/get-page-referenced-blocks test-db "a")]
(are [x y] (= x y)
4 (count a-aliases)
4 (count b-aliases)
1 (count b-ref-blocks)
1 (count a-ref-blocks)
["b" "c" "d"] alias-names)))))
(deftest test-page-alias-set
[]
(run-db!
@@ -58,27 +81,4 @@
1 (count a-ref-blocks)
["b" "c"] alias-names)))))
(deftest test-page-alias-with-multiple-alias
[]
(run-db!
(fn []
(let [files [{:file/path "a.md"
:file/content "---\ntitle: a\nalias: b, c\n---"}
{:file/path "b.md"
:file/content "---\ntitle: b\nalias: a, d\n---"}
{:file/path "e.md"
:file/content "---\ntitle: e\n---\n## ref to [[b]]"}]
_ (repo-handler/parse-files-and-load-to-db! test-db files {:re-render? false})
a-aliases (model/page-alias-set test-db "a")
b-aliases (model/page-alias-set test-db "b")
alias-names (model/get-page-alias-names test-db "a")
b-ref-blocks (model/get-page-referenced-blocks test-db "b")
a-ref-blocks (model/get-page-referenced-blocks test-db "a")]
(are [x y] (= x y)
4 (count a-aliases)
4 (count b-aliases)
1 (count b-ref-blocks)
1 (count a-ref-blocks)
["b" "c" "d"] alias-names)))))
#_(cljs.test/test-ns 'frontend.db.model-test)