From bf73e750f744f17db845a186bd7cb010abfe60af Mon Sep 17 00:00:00 2001 From: Jack Leary Date: Thu, 10 Oct 2024 14:43:22 -0400 Subject: [PATCH] modified test suite -- closes #242 --- tests/testthat/test_scLANE.R | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/testthat/test_scLANE.R b/tests/testthat/test_scLANE.R index 553d3f0..5478051 100644 --- 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)