* :no-op only has :env & :op

* test-no-op
clojure · Nov 20, 2024 · 7bf09f0 · 7bf09f0
1 parent 867a26b
commit 7bf09f0
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj
@@ -208,7 +208,11 @@
   (is (s/valid? ::a/node (no-warn (analyze ns-env '(String.)))))
   (is (s/valid? ::a/node (analyze ns-env '(js/String.)))))
 
-;; no-op
+(deftest test-no-op
+  (let [node (binding [ana/*unchecked-if* true]
+               (no-warn (analyze ns-env '(set! *unchecked-if* false))))]
+    (is (= :no-op (:op node)))
+    (is (s/valid? ::a/node node))))
 
 (deftest test-ns
   (let [node (no-warn

diff --git a/src/test/clojure/cljs/analyzer/specs.cljc b/src/test/clojure/cljs/analyzer/specs.cljc
@@ -220,7 +220,8 @@
       :req-un [::class ::args])))
 
 (defmethod node :no-op [_]
-  ::base)
+  (s/keys
+    :req-un [::env ::op]))
 
 (defmethod node :ns [_]
   ::base)