From 82efd243ea71c8954bc8c68ec7558d09f74b3508 Mon Sep 17 00:00:00 2001 From: davidnolen Date: Mon, 18 Nov 2024 10:38:47 -0800 Subject: [PATCH] * more assertions for case --- src/test/clojure/cljs/analyzer/spec_tests.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj index 62204dca2..e365e2414 100644 --- a/src/test/clojure/cljs/analyzer/spec_tests.clj +++ b/src/test/clojure/cljs/analyzer/spec_tests.clj @@ -23,11 +23,13 @@ (is (s/valid? ::a/node binding)))) (deftest test-case - (let [node (no-warn (analyze ns-env '(case x 1 :foo 2 :bar)))] + (let [let-node (no-warn (analyze ns-env '(case x 1 :foo 2 :bar))) + node (-> let-node :body :ret)] + (is (= :case (:op node))) (is (s/valid? ::a/node node)))) -;; case-node ;; case-test +;; case-node ;; case-then (deftest test-const