Improved flaky test.

The tool-calls-with-prompt-stop-test was falky in CI/CD.
Likely because it relied on sleep times.
Added promises to the test to coordinate between the concurrent tool
calls and the prompt stop.
Hopefully, this works better.

Changed tool-calls-with-prompt-stop to
tool-calls-with-prompt-stop-test for consistency.

Fixed a reflection warning in deep-sleep by casting the sleep arg to
long.

Author: bombaywalla

test/eca/features/chat_test.clj

@@ -29,7 +29,7 @@
     (loop [remaining (- deadline (System/currentTimeMillis))]
       (when (pos? remaining)
         (try
-          (Thread/sleep remaining)
+          (Thread/sleep (long remaining))
           (catch InterruptedException _))
         (recur (- deadline (System/currentTimeMillis)))))))
 
@@ -329,10 +329,13 @@
              {:role :system :content {:type :progress :state :finished}}]}
            (h/messages))))))
 
-(deftest tool-calls-with-prompt-stop
+(deftest tool-calls-with-prompt-stop-test
   (testing "Three concurrent tool calls. Stopped before they all finished. Tool call 3 finishes. Calls 1,2 reject."
     (h/reset-components!)
-    (let [{:keys [chat-id]}
+    (let [wait-for-tool3 (promise)
+          wait-for-tool2 (promise)
+          wait-for-stop (promise)
+          {:keys [chat-id]}
           (complete!
            {:message "Run 3 read-only tool calls simultaneously."}
            {:api-mock
@@ -345,7 +348,10 @@
                 (on-prepare-tool-call {:id "call-2" :name "ro_tool_2" :arguments-text ""})
                 (on-prepare-tool-call {:id "call-3" :name "ro_tool_3" :arguments-text ""})
                 (future (Thread/sleep 200)
-                        (f.chat/prompt-stop {:chat-id chat-id} (h/db*) (h/messenger) (h/metrics)))
+                        (deref wait-for-tool3)
+                        (Thread/sleep 50)
+                        (f.chat/prompt-stop {:chat-id chat-id} (h/db*) (h/messenger) (h/metrics))
+                        (deliver wait-for-stop true))
                 (on-tools-called [{:id "call-1" :name "ro_tool_1" :arguments {}}
                                   {:id "call-2" :name "ro_tool_2" :arguments {}}
                                   {:id "call-3" :name "ro_tool_3" :arguments {}}])))
@@ -355,16 +361,20 @@
 
                 "ro_tool_1"
                 (do (deep-sleep 350)
+                    (deref wait-for-tool2)
                     {:error false
                      :contents [{:type :text :content "RO tool call 1 result"}]})
 
                 "ro_tool_2"
                 (do (deep-sleep 300)
+                    (deref wait-for-stop)
+                    (deliver wait-for-tool2 true)
                     {:error false
                      :contents [{:type :text :content "RO tool call 2 result"}]})
 
                 "ro_tool_3"
                 (do (deep-sleep 100)
+                    (deliver wait-for-tool3 true)
                     {:error false
                      :contents [{:type :text :content "RO tool call 3 result"}]})))})]
       (is (match? {chat-id