tests/testthat/test-Connection.R

In HealthInformaticsUT/Cohort2Trajectory: Package for creating patient orientated treatment trajectories from cohorts defined in OHDSI ATLAS

# library(testthat)
# library(Eunomia)
# 
# connectionDetails <- getEunomiaConnectionDetails()
# 
# test_that("Get connection details", {
#   expect_s3_class(connectionDetails, "ConnectionDetails")
# })
# 
# test_that("Connect", {
#   connection <- DatabaseConnector::connect(connectionDetails)
#   expect_s4_class(connection, "DatabaseConnectorDbiConnection")
#   DatabaseConnector::disconnect(connection)
# })
# 
# connection <- DatabaseConnector::connect(connectionDetails)
# 
# test_that("Query", {
#   personCount <- DatabaseConnector::querySql(connection, "SELECT COUNT(*) FROM main.person;")
#   expect_gt(personCount, 0)
# })
# 
# test_that("Cohort construction", {
#   createCohorts(connectionDetails)
#   sql <- "SELECT COUNT(*)
#   FROM main.cohort
#   WHERE cohort_definition_id = 1;"
#   cohortCount <- DatabaseConnector::renderTranslateQuerySql(connection, sql)
#   expect_gt(cohortCount, 0)
# })
# 
# test_that("Disconnect", {
#   DatabaseConnector::disconnect(connection)
#   expect_false(DatabaseConnector::dbIsValid(connection))
# })