nil은 :scm/unresolved를 대신함

This commit is contained in:
msyds committed 2026-09-23 11:40:18 -06:00
1 parent 5359bc1c0a
commit 18e4fd09d5
2 files changed
+26 -19

No files matched your search

+7 -2
View File
@@ -1,6 +1,7 @@
(ns scm-test
(:require [scm :as sut]
[clojure.test :as t]))
[clojure.test :as t])
(:import scm.ISyntax scm.Syntax))
(t/deftest read-test
(t/testing "boolean"
@@ -61,5 +62,9 @@
(t/is (sut/syntax? #scm/stx [123 #{}]))
(t/is (= 123 (sut/syntax-e #scm/stx [123 #{}]))))
(t/deftest resolved?-test
(t/deftest unresolved?-test
(t/is (sut/unresolved? (scm/->Syntax 123 nil)))
(t/is (sut/unresolved? #scm/stx 123)))
(t/deftest resolved?-test
(t/is (sut/resolved? (scm/->Syntax 123 '#{a}))))