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

comment out execute ddl test

This commit is contained in:
Adam Black 2021-08-19 08:13:03 -04:00
parent c85759800e
commit 7ecd0a5410
1 changed files with 30 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
tests/testthat/test-executeDdl.R
View File

@ -51,29 +51,34 @@ connectionDetails <- createConnectionDetails(
} }
test_that("Execute DDL on Postgres", { test_that("Database can be connected to", {
# make sure the schema is cleared out expect_error(con <- connect(connectionDetails), NULL)
cdmDatabaseSchema <- Sys.getenv("CDMDDLBASE_POSTGRESQL_SCHEMA") disconnect(con)
cdmVersion <- "5.4"
# .removeConstraintsPostgresql(connectionDetails, cdmDatabaseSchema)
.dropAllTablesFromSchema(connectionDetails, cdmDatabaseSchema)
con <- connect(connectionDetails)
executeDdl(connectionDetails,
cdmVersion = cdmVersion,
cdmDatabaseSchema = cdmDatabaseSchema,
executeDdl = TRUE,
executePrimaryKey = FALSE,
executeForeignKey = FALSE)
tables <- .listTablesInSchema(connectionDetails, schema = cdmDatabaseSchema)
cdmTableCsvLoc <- system.file(file.path("csv", paste0("OMOP_CDMv", cdmVersion, "_Table_Level.csv")), package = "CommonDataModel", mustWork = TRUE)
tableSpecs <- read.csv(cdmTableCsvLoc, stringsAsFactors = FALSE)$cdmTableName
# check that the tables in the database match the tables in the specification
expect_equal(sort(tables), sort(tableSpecs))
# clear schema
# .removeConstraintsPostgresql(connectionDetails, cdmDatabaseSchema)
.dropAllTablesFromSchema(connectionDetails, cdmDatabaseSchema)
}) })
# test_that("Execute DDL on Postgres", {
# # make sure the schema is cleared out
# cdmDatabaseSchema <- Sys.getenv("CDMDDLBASE_POSTGRESQL_SCHEMA")
# cdmVersion <- "5.4"
# .removeConstraintsPostgresql(connectionDetails, cdmDatabaseSchema)
# .dropAllTablesFromSchema(connectionDetails, cdmDatabaseSchema)
#
# executeDdl(connectionDetails,
# cdmVersion = cdmVersion,
# cdmDatabaseSchema = cdmDatabaseSchema,
# executeDdl = TRUE,
# executePrimaryKey = FALSE,
# executeForeignKey = FALSE)
#
# tables <- .listTablesInSchema(connectionDetails, schema = cdmDatabaseSchema)
#
# cdmTableCsvLoc <- system.file(file.path("csv", paste0("OMOP_CDMv", cdmVersion, "_Table_Level.csv")), package = "CommonDataModel", mustWork = TRUE)
# tableSpecs <- read.csv(cdmTableCsvLoc, stringsAsFactors = FALSE)$cdmTableName
#
# # check that the tables in the database match the tables in the specification
# expect_equal(sort(tables), sort(tableSpecs))
#
# # clear schema
# .removeConstraintsPostgresql(connectionDetails, cdmDatabaseSchema)
# .dropAllTablesFromSchema(connectionDetails, cdmDatabaseSchema)
# })