From e0406ad6b638a0b8be864a2bf26375224f125087 Mon Sep 17 00:00:00 2001
From: Danielle Callan <dcallan@upenn.edu>
Date: Thu, 4 Apr 2024 23:04:11 -0400
Subject: [PATCH] simple tests for now

---
 tests/testthat/test-DiabImmune.R | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 tests/testthat/test-DiabImmune.R

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