mz-health/OMOP
mz-health
/
OMOP
mirror of https://github.com/OHDSI/CommonDataModel.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Extend unit tests to cover InterSystems IRIS

This commit is contained in:
Benjamin De Boe 2024-10-23 09:56:57 +02:00
parent 5cf916e3e9
commit 44bc47e5f1
1 changed files with 136 additions and 128 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/testthat/setup.R
View File

@ -54,6 +54,13 @@ getConnectionDetails <- function(dbms) {
password = Sys.getenv("CDMDDLBASE_ORACLE_PASSWORD"), password = Sys.getenv("CDMDDLBASE_ORACLE_PASSWORD"),
server = Sys.getenv("CDMDDLBASE_ORACLE_SERVER"), server = Sys.getenv("CDMDDLBASE_ORACLE_SERVER"),
pathToDriver = jdbcDriverFolder pathToDriver = jdbcDriverFolder
),
"iris" = createConnectionDetails(
dbms = "iris",
user = Sys.getenv("CDMDDLBASE_IRIS_USER"),
password = Sys.getenv("CDMDDLBASE_IRIS_PASSWORD"),
connectionString = Sys.getenv("CDMDDLBASE_IRIS_URL"),
pathToDriver = jdbcDriverFolder
) )
) )
} }
@ -64,7 +71,8 @@ getSchema <- function(dbms) {
"postgresql" = Sys.getenv("CDMDDLBASE_POSTGRESQL_SCHEMA"), "postgresql" = Sys.getenv("CDMDDLBASE_POSTGRESQL_SCHEMA"),
"redshift" = Sys.getenv("CDMDDLBASE_REDSHIFT_SCHEMA"), "redshift" = Sys.getenv("CDMDDLBASE_REDSHIFT_SCHEMA"),
"sql server" = Sys.getenv("CDMDDLBASE_SQL_SERVER_CDM_SCHEMA"), "sql server" = Sys.getenv("CDMDDLBASE_SQL_SERVER_CDM_SCHEMA"),
"oracle" = Sys.getenv("CDMDDLBASE_ORACLE_CDM_SCHEMA") "oracle" = Sys.getenv("CDMDDLBASE_ORACLE_CDM_SCHEMA"),
"iris" = Sys.getenv("CDMDDLBASE_IRIS_CDM_SCHEMA")
) )
} }
@ -74,11 +82,11 @@ listTablesInSchema <- function(connectionDetails, schema) {
class(schema) == "character", class(schema) == "character",
length(schema) == 1 length(schema) == 1
) )
stopifnot(connectionDetails$dbms %in% c("postgresql", "redshift", "sql server", "oracle")) stopifnot(connectionDetails$dbms %in% c("postgresql", "redshift", "sql server", "oracle", "iris"))
con <- DatabaseConnector::connect(connectionDetails) con <- DatabaseConnector::connect(connectionDetails)
on.exit(DatabaseConnector::disconnect(con)) on.exit(DatabaseConnector::disconnect(con))
dbms <- connectionDetails$dbms dbms <- connectionDetails$dbms
if (dbms %in% c("postgresql", "redshift", "sql server")) { if (dbms %in% c("postgresql", "redshift", "sql server", "iris")) {
tables <- tables <-
dbGetQuery( dbGetQuery(
con, con,
@ -106,13 +114,13 @@ dropAllTablesFromSchema <- function(connectionDetails, schema) {
class(schema) == "character", class(schema) == "character",
length(schema) == 1 length(schema) == 1
) )
stopifnot(connectionDetails$dbms %in% c("postgresql", "redshift", "sql server", "oracle")) stopifnot(connectionDetails$dbms %in% c("postgresql", "redshift", "sql server", "oracle", "iris"))
tableNames <- listTablesInSchema(connectionDetails, schema) tableNames <- listTablesInSchema(connectionDetails, schema)
con <- DatabaseConnector::connect(connectionDetails) con <- DatabaseConnector::connect(connectionDetails)
on.exit(DatabaseConnector::disconnect(con)) on.exit(DatabaseConnector::disconnect(con))
dbms <- connectionDetails$dbms dbms <- connectionDetails$dbms
if (dbms %in% c("redshift", "postgresql", "sql server")) { if (dbms %in% c("redshift", "postgresql", "sql server", "iris")) {
for (tableName in tableNames) { for (tableName in tableNames) {
DBI::dbExecute(con, paste( DBI::dbExecute(con, paste(
"DROP TABLE IF EXISTS", "DROP TABLE IF EXISTS",