modified test suite -- closes #242

jr-leary7 · Oct 10, 2024 · bf73e75 · bf73e75
1 parent cff92ec
commit bf73e75
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/tests/testthat/test_scLANE.R b/tests/testthat/test_scLANE.R
@@ -309,12 +309,12 @@ test_that("testDynamic() output", {
   expect_length(glm_gene_stats, 20)
   expect_length(gee_gene_stats, 20)
   expect_length(glmm_gene_stats, 20)
-  expect_s3_class(glm_gene_stats$ABCF1$Lineage_A$MARGE_Summary, "data.frame")
-  expect_s3_class(gee_gene_stats$ABCF1$Lineage_A$MARGE_Summary, "data.frame")
-  expect_s3_class(glmm_gene_stats$ABCF1$Lineage_A$MARGE_Summary, "data.frame")
-  expect_gt(nrow(glm_gene_stats$ABCF1$Lineage_A$MARGE_Summary), 0)
-  expect_gt(nrow(gee_gene_stats$ABCF1$Lineage_A$MARGE_Summary), 0)
-  expect_gt(nrow(glmm_gene_stats$ABCF1$Lineage_A$MARGE_Summary), 0)
+  expect_s3_class(glm_gene_stats[[glm_test_results$Gene[1]]]$Lineage_A$MARGE_Summary, "data.frame")
+  expect_s3_class(gee_gene_stats[[gee_test_results$Gene[1]]]$Lineage_A$MARGE_Summary, "data.frame")
+  expect_s3_class(glmm_gene_stats[[glmm_test_results$Gene[1]]]$Lineage_A$MARGE_Summary, "data.frame")
+  expect_gt(nrow(glm_gene_stats[[glm_test_results$Gene[1]]]$Lineage_A$MARGE_Summary), 0)
+  expect_gt(nrow(gee_gene_stats[[gee_test_results$Gene[1]]]$Lineage_A$MARGE_Summary), 0)
+  expect_gt(nrow(glmm_gene_stats[[glmm_test_results$Gene[1]]]$Lineage_A$MARGE_Summary), 0)
   expect_gt(sum(purrr::map_lgl(glm_gene_stats, \(x) x$Lineage_A$Model_Status == "MARGE model OK, null model OK")), 0)
   expect_gt(sum(purrr::map_lgl(gee_gene_stats, \(x) x$Lineage_A$Model_Status == "MARGE model OK, null model OK")), 0)
   expect_gt(sum(purrr::map_lgl(glmm_gene_stats, \(x) x$Lineage_A$Model_Status == "MARGE model OK, null model OK")), 0)