Fix tests

darkleaf · Dec 20, 2024 · 6d555c9 · 6d555c9
1 parent ba20534
commit 6d555c9
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/test/darkleaf/di/component_test.clj b/test/darkleaf/di/component_test.clj
@@ -8,7 +8,10 @@
 (defmacro catch-cause-data [& body]
   `(try ~@body
         (catch clojure.lang.ExceptionInfo e#
-          (mapv :data (:via (Throwable->map e#))))))
+          (->> e#
+               Throwable->map
+               :via
+               (mapv :data)))))
 
 (defn nil-component
   {::di/kind :component}

diff --git a/test/darkleaf/di/tutorial/y_graceful_stop_test.clj b/test/darkleaf/di/tutorial/y_graceful_stop_test.clj
@@ -13,6 +13,11 @@
 ;; It throws with original exception.
 ;; All other possible exceptions are added as suppressed.
 
+(defn ex-map-wo-via [ex]
+  (-> ex
+      Throwable->map
+      (dissoc :via)))
+
 (defn root
   {::di/kind :component}
   [{dep              `dep
@@ -34,5 +39,5 @@
                            (di/start `root registry)
                            (catch Throwable ex
                              ex))]
-    (t/is (= on-start-root-ex ex))
+    (t/is (= (ex-map-wo-via on-start-root-ex) (ex-map-wo-via ex)))
     (t/is (= [on-stop-dep-ex] (vec (.getSuppressed ex))))))