From 8423d578cffdef869d323d4e46c41f347b2268cb Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 4 Nov 2026 00:02:26 +0000
Subject: Handle LLM responses without the "cached_tokens" field.

Do not crash when the "cached_tokens" usage field is absent. Some LLM
providers don't provide this field.
---
 tests/tea.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'tests/tea.scm')

diff --git a/tests/tea.scm b/tests/tea.scm
index 44915c3..d7f3c03 100644
--- a/tests/tea.scm
+++ b/tests/tea.scm
@@ -63,4 +63,28 @@
    (state #f 0 1 '()
           `((0 . ,(session (getcwd) "foo"))))))
 
+(test-assert "handle LLM response without \"cached_tokens\" field in usage"
+  (run-with-state
+   (acp-effects (llm-response 0
+                              `(("id" . "gen-1793743825")
+                                ("model" . "anthropic/claude-haiku-5.5")
+                                ("choices"
+                                 .
+                                 #((("message"
+                                     ("role" . "assistant")
+                                     ("content" . "Hello! How can I help you today?")))))
+                                ("usage"
+                                 ("prompt_tokens" . 1770)
+                                 ("completion_tokens" . 13)
+                                 ("total_tokens" . 1783)
+                                 ("cost" . 3.601e-4)
+                                 ("prompt_tokens_details"
+                                  ("cache_write_tokens" . 1766))
+                                 ("completion_tokens_details"
+                                  ("reasoning_tokens" . 0)))))
+                %models
+                '())
+   (state #f 0 1 '()
+          `((0 . ,(session (getcwd) "foo"))))))
+
 (test-end "tea")
-- 
cgit 1.4.1