CLJS-3017: Error->map: Map js/InternalError and js/TypeError

Author: mfikes

src/main/cljs/cljs/repl.cljs

@@ -73,12 +73,7 @@
   (let [base (fn [t]
                (merge {:type (cond
                                (instance? ExceptionInfo t) 'ExceptionInfo
-                               (instance? js/EvalError t) 'js/EvalError
-                               (instance? js/RangeError t) 'js/RangeError
-                               (instance? js/ReferenceError t) 'js/ReferenceError
-                               (instance? js/SyntaxError t) 'js/SyntaxError
-                               (instance? js/URIError t) 'js/URIError
-                               (instance? js/Error t) 'js/Error
+                               (instance? js/Error t) (symbol "js" (.-name t))
                                :else nil)}
                  (when-let [msg (ex-message t)]
                    {:message msg})

src/test/cljs/cljs/repl_test.cljs

@@ -0,0 +1,16 @@
+;   Copyright (c) Rich Hickey. All rights reserved.
+;   The use and distribution terms for this software are covered by the
+;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+;   which can be found in the file epl-v10.html at the root of this distribution.
+;   By using this software in any fashion, you are agreeing to be bound by
+;   the terms of this license.
+;   You must not remove this notice, or any other, from this software.
+
+(ns cljs.repl-test
+  (:require
+   [cljs.repl]
+   [cljs.test :refer [deftest is]]))
+
+(deftest test-cljs-3017
+  (let [m (cljs.repl/Error->map (js/TypeError.))]
+    (is (= 'js/TypeError (get-in m [:via 0 :type])))))

src/test/cljs/test_runner.cljs

@@ -51,6 +51,7 @@
             [cljs.array-access-test]
             [cljs.inference-test]
             [cljs.walk-test]
+            [cljs.repl-test]
             [cljs.extend-to-native-test]))
 
 (set! *print-newline* false)
@@ -100,4 +101,5 @@
   'cljs.array-access-test
   'cljs.inference-test
   'cljs.walk-test
+  'cljs.repl-test
   'cljs.extend-to-native-test)

src/test/self/self_parity/test.cljs

@@ -176,7 +176,8 @@
   technical issues)."
   [name macros]
   ((if macros
-     #{'cljs.core}
+     #{'cljs.core
+       'cljs.repl}
      #{'goog.object
        'goog.string
        'goog.string.StringBuffer
@@ -315,6 +316,7 @@
                  [cljs.array-access-test]
                  [cljs.inference-test]
                  [cljs.walk-test]
+                 [cljs.repl-test]
                  [cljs.extend-to-native-test]))
     (fn [{:keys [value error]}]
       (if error
@@ -362,6 +364,7 @@
              'cljs.array-access-test
              'cljs.inference-test
              'cljs.walk-test
+             'cljs.repl-test
              'cljs.extend-to-native-test)
           (fn [{:keys [value error]}]
             (when error