Add test cases #19

R/ollama.R

@@ -545,7 +545,7 @@ embed <- function(model, input, truncate = TRUE, normalize = TRUE, keep_alive =
 
 
 
-#' Get vector embedding for a single prompt
+#' Get vector embedding for a single prompt - deprecated in favor of `embed()`
 #'
 #' This function will be deprecated over time and has been superceded by `embed()`. See `embed()` for more details.
 #'

R/utils.R

@@ -91,7 +91,7 @@ resp_process <- function(resp, output = c("df", "jsonlist", "raw", "resp", "text
         return(NULL)
     }
 
-    endpoints_to_skip <- c("api/delete")
+    endpoints_to_skip <- c("api/delete", "api/embed", "api/embeddings")
     for (endpoint in endpoints_to_skip) {
         if (grepl(endpoint, resp$url)) {
             message("Returning response object because resp_process not supported for this endpoint.")

tests/testthat/test-copy.R

@@ -0,0 +1,6 @@
+library(testthat)
+library(ollamar)
+
+test_that("copy function works with basic input", {
+    skip_if_not(test_connection()$status_code == 200, "Ollama server not available")
+})

tests/testthat/test-create.R

@@ -0,0 +1,6 @@
+library(testthat)
+library(ollamar)
+
+test_that("create function works with basic input", {
+    skip_if_not(test_connection()$status_code == 200, "Ollama server not available")
+})

tests/testthat/test-embed.R

@@ -0,0 +1,6 @@
+library(testthat)
+library(ollamar)
+
+test_that("embed function works with basic input", {
+    skip_if_not(test_connection()$status_code == 200, "Ollama server not available")
+})

tests/testthat/test-embeddings.R

@@ -0,0 +1,6 @@
+library(testthat)
+library(ollamar)
+
+test_that("embeddings function works with basic input", {
+    skip_if_not(test_connection()$status_code == 200, "Ollama server not available")
+})

tests/testthat/test-model_avail.R

@@ -0,0 +1,9 @@
+library(testthat)
+library(ollamar)
+
+test_that("model_avail function works with basic input", {
+    skip_if_not(test_connection()$status_code == 200, "Ollama server not available")
+
+    expect_false(model_avail("test"))
+    expect_true(model_avail("llama3"))
+})

tests/testthat/test-ps.R

@@ -0,0 +1,6 @@
+library(testthat)
+library(ollamar)
+
+test_that("ps function works with basic input", {
+    skip_if_not(test_connection()$status_code == 200, "Ollama server not available")
+})

tests/testthat/test-push.R

@@ -0,0 +1,6 @@
+library(testthat)
+library(ollamar)
+
+test_that("push function works with basic input", {
+    skip_if_not(test_connection()$status_code == 200, "Ollama server not available")
+})