Merge pull request #238 from jr-leary7/dev

expanded tests -- related to #235
jr-leary7 · Oct 8, 2024 · a43d8d2 · a43d8d2
2 parents c53eea5 + a47d444
commit a43d8d2
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test_scLANE.R b/tests/testthat/test_scLANE.R
@@ -28,6 +28,11 @@ tp2_res <- tp2(x = rnorm(30), t = 0)
 
 # generate scLANE results w/ all three modes
 withr::with_output_sink(tempfile(), {
+  # choose candidate genes
+  candidate_genes <- chooseCandidateGenes(sim_data_seu,
+                                          group.by.subject = TRUE,
+                                          id.vec = sim_data_seu$subject,
+                                          n.desired.genes = 50L)
   # run GLM, GEE, & GLMM tests
   glm_gene_stats <- testDynamic(sim_data,
                                 pt = pt_test,
@@ -283,6 +288,11 @@ test_that("internal marge functions", {
   expect_type(tp2_res, "double")
 })
 
+test_that("chooseCandidateGenes() output", {
+  expect_type(candidate_genes, "character")
+  expect_length(candidate_genes, 50)
+})
+
 test_that("createCellOffset() output", {
   expect_type(cell_offset, "double")
   expect_type(cell_offset_seu, "double")