diff --git a/tests/testthat/test-DiabImmune.R b/tests/testthat/test-DiabImmune.R new file mode 100644 index 0000000..cbf5758 --- /dev/null +++ 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) +}) \ No newline at end of file