Test for output too

tidyverse · Dec 18, 2024 · 8009b70 · 8009b70
1 parent ad87924
commit 8009b70
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/tests/testthat/helper-provider.R b/tests/testthat/helper-provider.R
@@ -52,7 +52,10 @@ test_tools_simple <- function(chat_fun) {
   chat <- chat_fun(system_prompt = "Be very terse, not even punctuation.")
   chat$register_tool(tool(function() "2024-01-01", "Return the current date"))
 
-  result <- chat$chat("What's the current date in YMD format?", echo = TRUE)
+  expect_output(
+    result <- chat$chat("What's the current date in YMD format?", echo = TRUE),
+    "2024-01-01"
+  )
   expect_match(result, "2024-01-01")
 
   result <- chat$chat("What month is it? Provide the full name")