Use real cohorts for timeout test

OHDSI · Jun 19, 2024 · 598403b · 598403b
1 parent 309e24a
commit 598403b
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/tests/testthat/test-CohortConstructionAndStats.R b/tests/testthat/test-CohortConstructionAndStats.R
@@ -122,13 +122,7 @@ test_that("Call generateCohortSet with incremental = TRUE and no folder specifie
 })
 
 test_that("Call generateCohortSet with very small timeout value", {
-  cohortDefinitionSet <- createEmptyCohortDefinitionSet()
-  cohortDefinitionSet <- rbind(cohortDefinitionSet, data.frame(
-    cohortId = 1,
-    cohortName = "Test",
-    sql = "sql",
-    foo = "foo"
-  ))
+  cohortDefinitionSet = getCohortsForTest(cohorts)
 
   cohortTableNames <- CohortGenerator::getCohortTableNames()