From 1ed92f81d760b1c645dab2cdf798783615c14cd0 Mon Sep 17 00:00:00 2001
From: Moritz Heidkamp <moritz.heidkamp@bevuta.com>
Date: Fri, 19 Sep 2025 16:51:10 +0200
Subject: [PATCH] Fix dropped errors in `manifold.go-off`

Timeout tests are changed so that every timeout exception has a uniquely identifiable message which
makes it easier to match up the dropped error warning with the originating timeout.
---
 src/manifold/go_off.clj       | 3 +--
 test/manifold/go_off_test.clj | 8 ++++----
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/manifold/go_off.clj b/src/manifold/go_off.clj
index 0163ec19..f5dfda11 100644
--- a/src/manifold/go_off.clj
+++ b/src/manifold/go_off.clj
@@ -46,8 +46,7 @@
 (defn ^:no-doc run-state-machine-wrapped [state]
   (try (async-runtime/run-state-machine state)
        (catch Throwable ex
-         (d/error! (async-runtime/aget-object state async-runtime/USER-START-IDX) ex)
-         (throw ex))))
+         (d/error! (async-runtime/aget-object state async-runtime/USER-START-IDX) ex))))
 
 (defn ^:no-doc take! [state blk d]
   (let [handler          (fn [x]
diff --git a/test/manifold/go_off_test.clj b/test/manifold/go_off_test.clj
index cafc8ed0..6031519b 100644
--- a/test/manifold/go_off_test.clj
+++ b/test/manifold/go_off_test.clj
@@ -115,12 +115,12 @@
   (testing "timeouts"
     (is (= ::timeout @(go-off (<!? (d/timeout! (d/deferred) 10 ::timeout)))))
     (is (= ::timeout @(d/timeout! (go-off (<!? (d/deferred))) 10 ::timeout)))
-    (is (thrown? TimeoutException @(go-off (<!? (d/timeout! (d/deferred) 10)))))
-    (is (thrown? TimeoutException @(d/timeout! (go-off (<!? (d/deferred))) 10))))
+    (is (thrown? TimeoutException @(go-off (<!? (d/timeout! (d/deferred) 11)))))
+    (is (thrown? TimeoutException @(d/timeout! (go-off (<!? (d/deferred))) 12))))
 
   (testing "alt"
-    (is (= ::timeout @(go-off (<!? (d/alt (d/deferred) (d/timeout! (d/deferred) 10 ::timeout))))))
-    (is (= ::timeout @(d/alt (go-off (<!? (d/deferred))) (d/timeout! (d/deferred) 10 ::timeout))))
+    (is (= ::timeout @(go-off (<!? (d/alt (d/deferred) (d/timeout! (d/deferred) 13 ::timeout))))))
+    (is (= ::timeout @(d/alt (go-off (<!? (d/deferred))) (d/timeout! (d/deferred) 14 ::timeout))))
     (is (= 1 @(go-off (<!? (d/alt (d/deferred) (d/success-deferred 1))))))
     (is (= 1 @(d/alt (go-off (<!? (d/deferred))) (d/success-deferred 1))))))