CLJS-3019: Error->map should produce qualified symbols for :type

alexisvincent · Jun 23, 2020 · 92707a0 · 92707a0
1 parent 25c9587
commit 92707a0
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/main/cljs/cljs/repl.cljs b/src/main/cljs/cljs/repl.cljs
@@ -72,7 +72,7 @@
   [o]
   (let [base (fn [t]
                (merge {:type (cond
-                               (instance? ExceptionInfo t) 'ExceptionInfo
+                               (instance? ExceptionInfo t) `ExceptionInfo
                                (instance? js/Error t) (symbol "js" (.-name t))
                                :else nil)}
                  (when-let [msg (ex-message t)]

diff --git a/src/test/cljs/cljs/repl_test.cljs b/src/test/cljs/cljs/repl_test.cljs
@@ -14,3 +14,7 @@
 (deftest test-cljs-3017
   (let [m (cljs.repl/Error->map (js/TypeError.))]
     (is (= 'js/TypeError (get-in m [:via 0 :type])))))
+
+(deftest test-cljs-3019
+  (let [m (cljs.repl/Error->map (ex-info "" {}))]
+    (is (= 'cljs.core/ExceptionInfo (get-in m [:via 0 :type])))))