From a91025a3af39fab1f5690c0ea30e44800099144f Mon Sep 17 00:00:00 2001
From: davidnolen <david.nolen@gmail.com>
Date: Wed, 20 Nov 2024 06:05:22 -0800
Subject: [PATCH] * test-local

---
 src/test/clojure/cljs/analyzer/spec_tests.clj | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj
index c47fff5fb..b59c5022f 100644
--- a/src/test/clojure/cljs/analyzer/spec_tests.clj
+++ b/src/test/clojure/cljs/analyzer/spec_tests.clj
@@ -166,7 +166,13 @@
 
 ;; list, no longer needed, subsumed by :quote
 
-;; local
+(deftest test-local
+  (let [node      (analyze ns-env '(fn [x] x))
+        fn-method (-> node :methods first)
+        body      (-> fn-method :body)
+        ret       (:ret body)]
+    (is (= :local (:op ret)))
+    (is (s/valid? ::a/node node))))
 
 (deftest test-loop
   (let [node (analyze ns-env '(loop []))]