From 1d7e569a19fdb80a7aa1d6a50f8b2559c8a5a532 Mon Sep 17 00:00:00 2001
From: Ghadi Shayban <ghadi@cognitect.com>
Date: Tue, 10 Dec 2024 11:23:01 -0500
Subject: [PATCH] eliminate non-determinism in mult test

first input to mult must be supplied after chan closed
to ensure close will be seen
---
 src/test/clojure/clojure/core/async_test.clj | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/test/clojure/clojure/core/async_test.clj b/src/test/clojure/clojure/core/async_test.clj
index 524543a..9da7102 100644
--- a/src/test/clojure/clojure/core/async_test.clj
+++ b/src/test/clojure/clojure/core/async_test.clj
@@ -292,7 +292,7 @@
              (<!! (a/into [] b)))))
 
     ;; ASYNC-127
-    (let [ch (to-chan! [1 2 3])
+    (let [ch (chan)
           m (mult ch)
           t-1 (chan)
           t-2 (chan)
@@ -301,6 +301,7 @@
       (tap m t-2)
       (tap m t-3)
       (close! t-3)
+      (onto-chan! ch [1 2 3])
       (is (= 1 (<!! t-1)))
       (is (= nil (a/poll! t-1))) ;; t-2 hasn't taken yet
       (is (= 1 (<!! t-2)))