test

Author: ginberg

tests/testthat/test-runCohortCharacterization.R

@@ -25,26 +25,26 @@ for (nm in names(testServers)) {
     )
 
     # check characteristics
-    expect_equal(class(results), "Andromeda")
+    expect_equal(class(results)[1], "Andromeda")
     expect_equal(names(results), c("analysisRef", "covariateRef", "covariates", "covariatesContinuous", "timeRef"))
 
     analysisRef <- results$analysisRef
-    analysisIds <- analysisRef %>% pull(analysisId)
-    expect_true(analysisRef %>% pull(analysisName) %in% c("Measurement", "ConditionOccurence", "DrugEraStart", "CharlsonIndex", "ProcedureOccurence"))
+    analysisIds <- analysisRef %>% dplyr::pull(analysisId)
+    expect_equal(analysisRef %>% dplyr::pull(analysisName), c("Measurement", "ConditionOccurrence", "DrugEraStart", "CharlsonIndex", "ProcedureOccurrence"))
 
     covariateRef <- results$covariateRef
-    expect_true(covariateRef %>% pull(analysisId) %in% analysisIds)
+    expect_true(all(covariateRef %>% dplyr::pull(analysisId) %>% unique() %in% analysisIds))
 
     covariates <- results$covariates
-    expect_true(covariates %>% pull(cohortId) %in% server$cohortIds)
-    expect_true(covariates %>% pull(mean) %>% min() >= minCharacterizationMean)
+    expect_true(all(covariates %>% dplyr::pull(cohortId) %in% server$cohortIds))
+    expect_true(covariates %>% dplyr::pull(mean) %>% min() >= minCharacterizationMean)
 
     covariatesCont <- results$covariatesContinuous
-    expect_true(covariatesCont %>% pull(cohortId) %in% server$cohortIds)
+    expect_true(all(covariatesCont %>% dplyr::pull(cohortId) %in% server$cohortIds))
 
     timeRef <- results$timeRef
-    expect_true(timeRef %>% pull(startDay), c(-365, -30, 0, 1, 31))
-    expect_true(timeRef %>% pull(endDay), c(-31, -1, 0, 30, 365))
+    expect_equal(timeRef %>% dplyr::pull(startDay), c(-365, -30, 0, 1, 31))
+    expect_equal(timeRef %>% dplyr::pull(endDay), c(-31, -1, 0, 30, 365))
   })
 }