Fix title tests for openai

Author: ericdallo

integration-test/llm_mock/openai.clj

@@ -180,17 +180,10 @@
         (hk/close ch)))))
 
 (defn ^:private chat-title-text-0 [ch]
-  (sse-send! ch "response.output_text.delta"
-             {:type "response.output_text.delta" :delta "Some Cool"})
-  (sse-send! ch "response.output_text.delta"
-             {:type "response.output_text.delta" :delta " Title"})
-  (sse-send! ch "response.completed"
-             {:type "response.completed"
-              :response {:output []
-                         :usage {:input_tokens 5
-                                 :output_tokens 10}
-                         :status "completed"}})
-  (hk/close ch))
+  (hk/send! ch
+            (json/generate-string
+             {:output [{:content [{:text "Some Cool Title"}]}]})
+            true))
 
 (defn handle-openai-responses [req]
   (let [body (some-> (slurp (:body req))

integration-test/llm_mock/openai_chat.clj

@@ -90,11 +90,10 @@
   (hk/close ch))
 
 (defn ^:private chat-title-text-0 [ch]
-  (send-sse! ch {:choices [{:delta {:content "Some Cool"}}]})
-  (send-sse! ch {:choices [{:delta {:content " Title"}}]})
-  (send-sse! ch {:usage {:prompt_tokens 5 :completion_tokens 10}})
-  (send-sse! ch {:choices [{:delta {} :finish_reason "stop"}]})
-  (hk/close ch))
+  (hk/send! ch
+            (json/generate-string
+             {:choices [{:message {:content "Some Cool Title"}}]})
+            true))
 
 (defn handle-openai-chat [req]
   ;; Capture and normalize the request body for assertions in tests