From 2a9fa716120839efc23529e662f820881008b26d Mon Sep 17 00:00:00 2001 From: Adam Black Date: Thu, 19 Aug 2021 23:12:55 -0400 Subject: [PATCH] debug actions. --- tests/testthat/test-executeDdl.R | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-executeDdl.R b/tests/testthat/test-executeDdl.R index 63ae631..53ede49 100644 --- a/tests/testthat/test-executeDdl.R +++ b/tests/testthat/test-executeDdl.R @@ -2,7 +2,7 @@ # dbms <- "postgresql"; cdmVersion <- "5.4" # testDatabases <- c("oracle", "postgresql", "sql server", "redshift") -testDatabases <- c("postgresql", "redshift") +testDatabases <- c("redshift") test_that("getConnectionDetails works", { for(dbms in testDatabases) { @@ -21,8 +21,9 @@ for(dbms in testDatabases) { cdmDatabaseSchema <- getSchema(dbms) test_that(paste("Can connect to", dbms), { - expect_error({con <- connect(connectionDetails)}, NA) - disconnect(con) + con <- connect(connectionDetails) + expect_s3_class(con, "DatabaseConnectorJdbcConnection") + expect_error(disconnect(con), NA) })