From 668a6e58f3f664676a7e3b7d2c63f7c720bdf0aa Mon Sep 17 00:00:00 2001 From: Anthony Sena Date: Fri, 28 Jun 2024 11:33:18 -0400 Subject: [PATCH] fix platform tests --- tests/testthat/test-dbms-platforms.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test-dbms-platforms.R b/tests/testthat/test-dbms-platforms.R index 0e6877d..2cd2801 100644 --- a/tests/testthat/test-dbms-platforms.R +++ b/tests/testthat/test-dbms-platforms.R @@ -1,3 +1,6 @@ +library(testthat) +library(CohortGenerator) + testPlatform <- function(dbmsDetails) { cohortTableNames <- getCohortTableNames(cohortTable = dbmsDetails$cohortTable) platformOutputFolder <- file.path(outputFolder, dbmsDetails$connectionDetails$dbms) @@ -68,7 +71,7 @@ testPlatform <- function(dbmsDetails) { cohortsGenerated <- readCsv( file = file.path(platformOutputFolder, "cg_cohort_generation.csv") ) - expect_equal(nrow(cohortsGenerated), (nrow(cohortsWithStats) + nrow(cohortsWithSubsets))) + expect_equal(nrow(cohortsGenerated), nrow(cohortsWithSubsets)) cohortCounts <- readCsv( file = file.path(platformOutputFolder, "cg_cohort_count.csv")