* more assertions for case

clojure · Nov 18, 2024 · 82efd24 · 82efd24
1 parent e888fae
commit 82efd24
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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