* :op :quote should be :literal? true

* map, vector, quote tests
clojure · Nov 17, 2024 · 66487bb · 66487bb
1 parent 2c92f31
commit 66487bb
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 3 deletions.
diff --git a/src/main/clojure/cljs/analyzer.cljc b/src/main/clojure/cljs/analyzer.cljc
@@ -2571,6 +2571,7 @@
     (throw (error env "Wrong number of args to quote")))
   (let [expr (analyze-const env x)]
     {:op :quote
+     :literal? true
      :expr expr
      :env env
      :form form

diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj
@@ -146,7 +146,10 @@
                       x))))]
     (is (s/valid? ::a/node node))))
 
-;; map
+(deftest test-map
+  (let [node (no-warn (analyze ns-env '{:foo 1 :bar 2}))]
+    (is (= :map (:op node)))
+    (is (s/valid? ::a/node node))))
 
 (deftest test-new
   (let [node (no-warn (analyze ns-env '(new String)))]
@@ -162,7 +165,10 @@
 
 ;; ns*
 
-;; quote
+(deftest test-quote
+  (let [node (analyze ns-env ''(1 2 3))]
+    (is (= :quote (:op node)))
+    (is (s/valid? ::a/node node))))
 
 (deftest test-recur
   (let [node (no-warn (analyze ns-env '(fn [x] (recur (inc x)))))]
@@ -183,7 +189,10 @@
 
 ;; var
 
-;; vector
+(deftest test-map
+  (let [node (no-warn (analyze ns-env '[1 2]))]
+    (is (= :vector (:op node)))
+    (is (s/valid? ::a/node node))))
 
 ;; with-meta