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.

Author: DerGuteMoritz

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]

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))))))