From 6226322208e09240546801c79482306ad0f54793 Mon Sep 17 00:00:00 2001 From: davidnolen Date: Sun, 17 Nov 2024 10:21:22 -0500 Subject: [PATCH] * add binding, note about list, add set, typo --- src/test/clojure/cljs/analyzer/spec_tests.clj | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj index 55e5b6f4a..310763eb4 100644 --- a/src/test/clojure/cljs/analyzer/spec_tests.clj +++ b/src/test/clojure/cljs/analyzer/spec_tests.clj @@ -13,7 +13,11 @@ [clojure.test :as test :refer [deftest is]] [clojure.spec.alpha :as s])) -;; binding +(deftest test-binding + (let [node (analyze ns-env '(let [x 1] x)) + binding (-> node :bindings first)] + (is (= :binding (:op binding))) + (is (s/valid? ::a/node binding)))) (deftest test-case (let [node (no-warn (analyze ns-env '(case x 1 :foo 2 :bar)))] @@ -126,7 +130,7 @@ ;; letfn -;; list +;; list, no longer needed, subsumed by :quote ;; local @@ -174,7 +178,10 @@ (let [node (no-warn (analyze ns-env '(fn [x] (recur (inc x)))))] (is (s/valid? ::a/node node)))) -;; set +(deftest test-set + (let [node (no-warn (analyze ns-env #{1 2 3}))] + (is (= :set (:op node))) + (is (s/valid? ::a/node node)))) ;; set! @@ -189,7 +196,7 @@ ;; var -(deftest test-map +(deftest test-vector (let [node (no-warn (analyze ns-env '[1 2]))] (is (= :vector (:op node))) (is (s/valid? ::a/node node))))