fix #33

Author: JBGruber

R/lib.R

@@ -141,7 +141,7 @@ perform_req <- function(reqs, verbose) {
     if (purrr::pluck_exists(res, "error")) {
       cli::cli_abort(purrr::pluck(res, "error"))
     }
-    return(list(res))
+    return(list(resp))
   }
 
   list(httr2::req_perform(reqs[[1]]))

tests/testthat/test-chat.R

@@ -1,6 +1,7 @@
 test_that("Test query", {
   skip_if_not(ping_ollama(silent = TRUE))
   expect_message(query("test"), ".")
+  expect_message(query("test", verbose = TRUE), ".")
 })
 
 test_that("Test chat", {

tests/testthat/test-models.R

@@ -42,5 +42,5 @@ test_that("delete model", {
 test_that("model missing", {
   skip_if_not(ping_ollama(silent = TRUE))
   expect_error(check_model_installed("NOMODEL"),
-               "Model NOMODEL not installed.")
+               "Model.NOMODEL:latest.not.installed.")
 })