Add test cases #19

hauselin · Aug 4, 2024 · 6b0bf26 · 6b0bf26
1 parent 277aaf9
commit 6b0bf26
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -0,0 +1,12 @@
+library(testthat)
+library(ollamar)
+
+test_that("copy function works with basic input", {
+    skip_if_not(test_connection()$status_code == 200, "Ollama server not available")
+
+    x <- rnorm(5)
+    expect_true(vector_norm(x) == sqrt(sum(x^2)))
+    expect_true( all.equal(1, vector_norm(x)) != TRUE )
+    expect_true(all.equal(1, vector_norm(normalize(x))))
+
+})