fix: tests

This commit is contained in:
Tienson Qin
2025-01-13 16:31:39 +08:00
parent d8984a0719
commit 61a895fbd3

View File

@@ -222,8 +222,8 @@ prop-d:: [[nada]]"}])
{:block/title "b3"
:build/tags [:Class1]}]}]})
(is (= ["b3" "b2" "b1"]
(map :block/title (dsl-query "(property :user.property/default)")))
(is (= (set ["b3" "b2" "b1"])
(set (map :block/title (dsl-query "(property :user.property/default)"))))
"Blocks with any :default property or tagged with a tag that has that default-value property")
(is (= ["b1" "b3"]
(map :block/title (dsl-query "(property :user.property/default \"foo\")")))
@@ -248,8 +248,8 @@ prop-d:: [[nada]]"}])
{:block/title "b3"
:build/tags [:Class1]}]}]})
(is (= ["b3" "b2" "b1"]
(map :block/title (dsl-query "(property :user.property/checkbox)")))
(is (= (set ["b3" "b2" "b1"])
(set (map :block/title (dsl-query "(property :user.property/checkbox)"))))
"Blocks with any :checkbox property or tagged with a tag that has that default-value property")
(is (= ["b1" "b3"]
(map :block/title (dsl-query "(property :user.property/checkbox true)")))