Add tests for data

epiverse-connect · Nov 27, 2024 · 3ca224d · 3ca224d
1 parent 7b5ee09
commit 3ca224d
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 0 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -13,6 +13,7 @@ RoxygenNote: 7.3.2
 Depends: 
     R (>= 2.10)
 Suggests: 
+    jsonlite,
     pkgmatch,
     testthat (>= 3.0.0)
 Config/testthat/edition: 3

diff --git a/tests/testthat/test-data.R b/tests/testthat/test-data.R
@@ -0,0 +1,10 @@
+test_that("epi_embeddings data format", {
+
+  epi_pkgs <- jsonlite::fromJSON("https://epiverse-connect.r-universe.dev/api/ls")
+
+  # Not expect_setequal() because pkgmatch will ignore pkgs that do not parse
+  expect_in(colnames(epi_embeddings$text_with_fns), epi_pkgs)
+  expect_in(colnames(epi_embeddings$text_wo_fns), epi_pkgs)
+  expect_in(colnames(epi_embeddings$code), epi_pkgs)
+
+})
diff --git a/tests/testthat/test-queries.R b/tests/testthat/test-queries.R
@@ -2,6 +2,9 @@
 
 test_that("test queries return expected output", {
 
+  # Since ollama is not installed
+  skip_on_ci()
+
   # Simple cases
   expect_true(
     any(