Add test for low cell warming

LieberInstitute · Aug 5, 2024 · 31e5999 · 31e5999
1 parent a5069c7
commit 31e5999
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-get_mean_ratio.R b/tests/testthat/test-get_mean_ratio.R
@@ -3,3 +3,9 @@ mrt_ab <- suppressMessages(get_mean_ratio(sce_ab, cellType_col = "cellType"))
 test_that("Means all zero", {
     expect_equal(sum(mrt_ab$mean.2nd), 0)
 })
+
+if (!exists("sce_DLPFC_example")) sce_DLPFC_example <- fetch_deconvo_data("sce_DLPFC_example")
+
+test_that("Warn for <10 cells",{
+  expect_warning(get_mean_ratio(sce_DLPFC_example, cellType_col = "cellType_hc"))
+})