Move to tests

This commit is contained in:
Florian Schroedl
2024-06-24 14:29:29 +02:00
parent 111900c122
commit 28f25da9e8
2 changed files with 8 additions and 14 deletions

View File

@@ -18,3 +18,8 @@
(t/is (nil? (wtsd/find-token-references "1 + 2")))
;; Edge-case: Ignore unmatched closing parens
(t/is (= #{"foo" "bar"} (wtsd/find-token-references "{foo}} + {bar}"))))
(t/deftest test-token-self-reference?
(t/is (some? (wtsd/token-self-reference? "some.value" "{md} + {some.value}")))
(t/is (nil? (wtsd/token-self-reference? "some.value" "some.value")))
(t/is (nil? (wtsd/token-self-reference? "sm" "{md} + {lg}"))))