nil은 :scm/unresolved를 대신함
This commit is contained in:
1 parent
5359bc1c0a
commit
18e4fd09d5
2 files changed
+26
-19
No files matched your search
+7
-2
@@ -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}))))
|
||||
Reference in new issue
Block a user