* const tests

clojure · Oct 25, 2024 · 55c8b12 · 55c8b12
1 parent 83dadc9
commit 55c8b12
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj
@@ -13,6 +13,18 @@
             [clojure.test :as test :refer [deftest is]]
             [clojure.spec.alpha :as s]))
 
+(deftest test-const
+  (is (s/valid? ::a/node (analyze ns-env 1)))
+  (is (s/valid? ::a/node (analyze ns-env 1.2)))
+  (is (s/valid? ::a/node (analyze ns-env true)))
+  (is (s/valid? ::a/node (analyze ns-env "foo")))
+  (is (s/valid? ::a/node (analyze ns-env [])))
+  (is (s/valid? ::a/node (analyze ns-env [1 2 3])))
+  (is (s/valid? ::a/node (analyze ns-env {})))
+  (is (s/valid? ::a/node (analyze ns-env {1 2 3 4})))
+  (is (s/valid? ::a/node (analyze ns-env #{})))
+  (is (s/valid? ::a/node (analyze ns-env #{1 2 3}))))
+
 (deftest test-if
   (is (s/valid? ::a/node (analyze ns-env '(if true true))))
   (is (s/valid? ::a/node (analyze ns-env '(if true true false)))))