CLJS-2991: Need to wrap js-obj output with parens

Author: mfikes

src/main/clojure/cljs/core.cljc

@@ -2588,7 +2588,7 @@
                        (interpose ",")
                        (apply core/str))]
     (vary-meta
-      (list* 'js* (core/str "{" kvs-str "}") (apply concat kvs))
+      (list* 'js* (core/str "({" kvs-str "})") (apply concat kvs))
       assoc :tag 'object)))
 
 (core/defmacro js-obj [& rest]

src/test/cljs/cljs/core_test.cljs

@@ -1707,3 +1707,18 @@
 (deftest test-cljs-2933
   (is (= "#object[cljs.core.Atom {:val 1}]" (pr-str (atom 1))))
   (is (= "#object[cljs.core.Volatile {:val 2}]" (pr-str (volatile! 2)))))
+
+(deftest test-cljs-2991
+  (let [o (js-obj)]
+    (is (object? o))
+    (is (empty? (js-keys o))))
+  (let [o (js-obj "a" 17)]
+    (is (object? o))
+    (is (== 1 (count (js-keys o))))
+    (is (= "a" (aget (js-keys o) 0)))
+    (is (== 17 (gobject/get o "a"))))
+  (let [o (js-obj "a" 17 "b" 27)]
+    (is (object? o))
+    (is (== 2 (count (js-keys o))))
+    (is (== 17 (gobject/get o "a")))
+    (is (== 27 (gobject/get o "b")))))

src/test/self/self_host/test.cljs

@@ -1484,6 +1484,21 @@
                 (is (some cljs-timestamp? (keys sms)))
                 (inc! l)))))))))
 
+(deftest test-cljs-2991
+  (async done
+    (let [l (latch 1 done)]
+      (let [st (cljs/empty-state)]
+        (cljs/eval-str st
+          "(js-obj)"
+          nil
+          {:ns         'cljs.user
+           :target     :nodejs
+           :eval       node-eval}
+          (fn [{:keys [value]}]
+            (is (object? value))
+            (is (empty? (js-keys value)))
+            (inc! l)))))))
+
 (defn -main [& args]
   (run-tests))