Add unit tests to make sure makeSignatures works with DataFrame

waldronlab · Jun 20, 2024 · 09da92f · 09da92f
1 parent 9c74491
commit 09da92f
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/tests/testthat/test-makeSignatures-DataFrame.R b/tests/testthat/test-makeSignatures-DataFrame.R
@@ -0,0 +1,14 @@
+library(purrr)
+library(S4Vectors)
+bp <- map(importBugphyzz(), DataFrame)
+sigsNames <- map(bp, ~ makeSignatures(.x, tax_id_type = "Taxon_name")) |>
+    list_flatten(name_spec = "{inner}")
+sigsIDs <- map(bp, ~ makeSignatures(.x, tax_id_type = "NCBI_ID")) |>
+    list_flatten(name_spec = "{inner}")
+
+test_that("makeSignatures works with IDs", {
+    expect_true(all(map_lgl(sigsIDs, is.integer)))
+})
+test_that("makeSignatures works with taxon names", {
+    expect_true(all(map_lgl(sigsNames, is.character)))
+})