;; Smoke test: multi-file attachments on OpenAI (Responses + Chat Completions)
;;
;; Prereqs:
;;   - OPENAI_API_KEY in env
;;   - Two image files at the paths below (edit to match yours)
;;   - Egg installed: `chicken-install -n` from repo root
;;
;; Run: csi -s tests/test-multifile-openai.scm

(import llm)

(define imgs '("/tmp/a.png" "/tmp/b.png"))

(print "=== OpenAI Responses (default) via llm/send ===")
(let-values (((c ok?) (llm/send (llm/chat)
                                "Describe each of these images in one short line."
                                file: imgs)))
  (print (llm/get-last-response c))
  (print "tokens: " (llm/get-tokens c))
  (print "cost:   $" (llm/get-cost c)))

(newline)
(print "=== OpenAI Chat Completions (legacy, provider: 'openai-chat) ===")
(let-values (((c ok?) (llm/send (llm/chat provider: 'openai-chat)
                                "Describe each of these images in one short line."
                                file: imgs)))
  (print (llm/get-last-response c))
  (print "tokens: " (llm/get-tokens c))
  (print "cost:   $" (llm/get-cost c)))

(newline)
(print "=== Backward-compat: single file as a string ===")
(let-values (((c ok?) (llm/send (llm/chat)
                                "Describe this image in one short line."
                                file: (car imgs))))
  (print (llm/get-last-response c)))