* test-var

clojure · Nov 20, 2024 · 1ce0ca7 · 1ce0ca7
1 parent a91025a
commit 1ce0ca7
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj
@@ -254,7 +254,13 @@
     (is (= :try (:op node)))
     (is (s/valid? ::a/node node))))
 
-;; var
+(deftest test-var
+  (let [node      (no-warn (analyze ns-env '(fn [] x)))
+        fn-method (-> node :methods first)
+        body      (-> fn-method :body)
+        ret       (:ret body)]
+    (is (= :var (:op ret)))
+    (is (s/valid? ::a/node node))))
 
 (deftest test-vector
   (let [node (no-warn (analyze ns-env '[1 2]))]