CLJS-3392: datafy support for js/Error and ExceptionInfo (#206)

Co-authored-by: Mike Fikes <[email protected]>

Author: swannodette

src/main/cljs/clojure/datafy.cljs

@@ -41,6 +41,12 @@
   (with-meta [(deref r)] (meta r)))
 
 (extend-protocol p/Datafiable
+  js/Error
+  (datafy [x] (Throwable->map x))
+
+  ExceptionInfo
+  (datafy [x] (Throwable->map x))
+
   Var
   (datafy [r] (datify-ref r))
 

src/test/cljs/clojure/datafy_test.cljs

@@ -22,3 +22,14 @@
           x (with-meta original {`clojure.core.protocols/datafy (fn [_] datafied)})]
       (is (= datafied (d/datafy x)))
       (is (= {:clojure.datafy/obj original} (meta (d/datafy x)))))))
+
+(deftest datafy-js-errors-test
+  (let [x (js/Error. "foo")]
+    (is (= (Throwable->map x) (d/datafy x))))
+  ;; Ensure we can datafy objects that extend js/Error
+  (let [x (js/RangeError. "x must be between 1 and 5")]
+    (is (= (Throwable->map x) (d/datafy x)))))
+
+(deftest datafy-ex-info-test
+  (let [x (ex-info "foo" {:a 1} (ex-info "bar" {:b 2}))]
+    (is (= (Throwable->map x) (d/datafy x)))))