simple tests for now

microbiomeDB · Apr 5, 2024 · e0406ad · e0406ad
1 parent efcf542
commit e0406ad
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/tests/testthat/test-DiabImmune.R b/tests/testthat/test-DiabImmune.R
@@ -0,0 +1,12 @@
+## a simple placeholder test for DiabImmune
+## we can expand this if we would like, but for now
+## we just want to make sure that DiabImmune is
+## a MbioDataset object and has reasonable collections
+test_that("DiabImmune is sane", {
+    expect_s4_class(DiabImmune, "MbioDataset")
+    expect_true(length(DiabImmune@collections) > 0)
+
+    genus <- MicrobiomeDB::getCollection(DiabImmune, "16S Genus")
+    expect_s4_class(genus, "Collection")
+    expect_true(length(genus@data) > 0)
+})