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

debug actions.

This commit is contained in:
Adam Black 2021-08-19 23:12:55 -04:00
parent 3af7fdbe69
commit 2a9fa71612
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,7 @@
# dbms <- "postgresql"; cdmVersion <- "5.4" # dbms <- "postgresql"; cdmVersion <- "5.4"
# testDatabases <- c("oracle", "postgresql", "sql server", "redshift") # testDatabases <- c("oracle", "postgresql", "sql server", "redshift")
testDatabases <- c("postgresql", "redshift") testDatabases <- c("redshift")
test_that("getConnectionDetails works", { test_that("getConnectionDetails works", {
for(dbms in testDatabases) { for(dbms in testDatabases) {
@ -21,8 +21,9 @@ for(dbms in testDatabases) {
cdmDatabaseSchema <- getSchema(dbms) cdmDatabaseSchema <- getSchema(dbms)
test_that(paste("Can connect to", dbms), { test_that(paste("Can connect to", dbms), {
expect_error({con <- connect(connectionDetails)}, NA) con <- connect(connectionDetails)
disconnect(con) expect_s3_class(con, "DatabaseConnectorJdbcConnection")
expect_error(disconnect(con), NA)
}) })