From abf23de7456b6899144b272b55ddb01b79ff2e7e Mon Sep 17 00:00:00 2001 From: Admin_mschuemi Date: Tue, 12 Sep 2023 10:54:27 -0400 Subject: [PATCH] Switching testing to CDMv54 --- .github/workflows/R_CMD_check_Hades.yaml | 8 ++--- .../workflows/R_CMD_check_main_weekly.yaml | 8 ++--- tests/testthat/test-BatchProcess.R | 6 ++-- tests/testthat/test-dataHash.R | 6 ++-- tests/testthat/test-dbplyr.R | 6 ++-- tests/testthat/test-fetchResults.R | 36 +++++++++---------- tests/testthat/test-getTableNames.R | 22 ++++++------ 7 files changed, 46 insertions(+), 46 deletions(-) diff --git a/.github/workflows/R_CMD_check_Hades.yaml b/.github/workflows/R_CMD_check_Hades.yaml index fe6bcdf4..64ac5a6e 100644 --- a/.github/workflows/R_CMD_check_Hades.yaml +++ b/.github/workflows/R_CMD_check_Hades.yaml @@ -28,22 +28,22 @@ jobs: GITHUB_PAT: ${{ secrets.GH_TOKEN }} R_REMOTES_NO_ERRORS_FROM_WARNINGS: true RSPM: ${{ matrix.config.rspm }} - CDM5_ORACLE_CDM_SCHEMA: ${{ secrets.CDM5_ORACLE_CDM_SCHEMA }} + CDM5_ORACLE_CDM54_SCHEMA: ${{ secrets.CDM5_ORACLE_CDM54_SCHEMA }} CDM5_ORACLE_OHDSI_SCHEMA: ${{ secrets.CDM5_ORACLE_OHDSI_SCHEMA }} CDM5_ORACLE_PASSWORD: ${{ secrets.CDM5_ORACLE_PASSWORD }} CDM5_ORACLE_SERVER: ${{ secrets.CDM5_ORACLE_SERVER }} CDM5_ORACLE_USER: ${{ secrets.CDM5_ORACLE_USER }} - CDM5_POSTGRESQL_CDM_SCHEMA: ${{ secrets.CDM5_POSTGRESQL_CDM_SCHEMA }} + CDM5_POSTGRESQL_CDM54_SCHEMA: ${{ secrets.CDM5_POSTGRESQL_CDM54_SCHEMA }} CDM5_POSTGRESQL_OHDSI_SCHEMA: ${{ secrets.CDM5_POSTGRESQL_OHDSI_SCHEMA }} CDM5_POSTGRESQL_PASSWORD: ${{ secrets.CDM5_POSTGRESQL_PASSWORD }} CDM5_POSTGRESQL_SERVER: ${{ secrets.CDM5_POSTGRESQL_SERVER }} CDM5_POSTGRESQL_USER: ${{ secrets.CDM5_POSTGRESQL_USER }} - CDM5_SQL_SERVER_CDM_SCHEMA: ${{ secrets.CDM5_SQL_SERVER_CDM_SCHEMA }} + CDM5_SQL_SERVER_CDM54_SCHEMA: ${{ secrets.CDM5_SQL_SERVER_CDM54_SCHEMA }} CDM5_SQL_SERVER_OHDSI_SCHEMA: ${{ secrets.CDM5_SQL_SERVER_OHDSI_SCHEMA }} CDM5_SQL_SERVER_PASSWORD: ${{ secrets.CDM5_SQL_SERVER_PASSWORD }} CDM5_SQL_SERVER_SERVER: ${{ secrets.CDM5_SQL_SERVER_SERVER }} CDM5_SQL_SERVER_USER: ${{ secrets.CDM5_SQL_SERVER_USER }} - CDM5_REDSHIFT_CDM_SCHEMA: ${{ secrets.CDM5_REDSHIFT_CDM_SCHEMA }} + CDM5_REDSHIFT_CDM54_SCHEMA: ${{ secrets.CDM5_REDSHIFT_CDM54_SCHEMA }} CDM5_REDSHIFT_OHDSI_SCHEMA: ${{ secrets.CDM5_REDSHIFT_OHDSI_SCHEMA }} CDM5_REDSHIFT_PASSWORD: ${{ secrets.CDM5_REDSHIFT_PASSWORD }} CDM5_REDSHIFT_SERVER: ${{ secrets.CDM5_REDSHIFT_SERVER }} diff --git a/.github/workflows/R_CMD_check_main_weekly.yaml b/.github/workflows/R_CMD_check_main_weekly.yaml index 6919051d..612a6414 100644 --- a/.github/workflows/R_CMD_check_main_weekly.yaml +++ b/.github/workflows/R_CMD_check_main_weekly.yaml @@ -20,22 +20,22 @@ jobs: GITHUB_PAT: ${{ secrets.GH_TOKEN }} R_REMOTES_NO_ERRORS_FROM_WARNINGS: true RSPM: ${{ matrix.config.rspm }} - CDM5_ORACLE_CDM_SCHEMA: ${{ secrets.CDM5_ORACLE_CDM_SCHEMA }} + CDM5_ORACLE_CDM54_SCHEMA: ${{ secrets.CDM5_ORACLE_CDM54_SCHEMA }} CDM5_ORACLE_OHDSI_SCHEMA: ${{ secrets.CDM5_ORACLE_OHDSI_SCHEMA }} CDM5_ORACLE_PASSWORD: ${{ secrets.CDM5_ORACLE_PASSWORD }} CDM5_ORACLE_SERVER: ${{ secrets.CDM5_ORACLE_SERVER }} CDM5_ORACLE_USER: ${{ secrets.CDM5_ORACLE_USER }} - CDM5_POSTGRESQL_CDM_SCHEMA: ${{ secrets.CDM5_POSTGRESQL_CDM_SCHEMA }} + CDM5_POSTGRESQL_CDM54_SCHEMA: ${{ secrets.CDM5_POSTGRESQL_CDM54_SCHEMA }} CDM5_POSTGRESQL_OHDSI_SCHEMA: ${{ secrets.CDM5_POSTGRESQL_OHDSI_SCHEMA }} CDM5_POSTGRESQL_PASSWORD: ${{ secrets.CDM5_POSTGRESQL_PASSWORD }} CDM5_POSTGRESQL_SERVER: ${{ secrets.CDM5_POSTGRESQL_SERVER }} CDM5_POSTGRESQL_USER: ${{ secrets.CDM5_POSTGRESQL_USER }} - CDM5_SQL_SERVER_CDM_SCHEMA: ${{ secrets.CDM5_SQL_SERVER_CDM_SCHEMA }} + CDM5_SQL_SERVER_CDM54_SCHEMA: ${{ secrets.CDM5_SQL_SERVER_CDM54_SCHEMA }} CDM5_SQL_SERVER_OHDSI_SCHEMA: ${{ secrets.CDM5_SQL_SERVER_OHDSI_SCHEMA }} CDM5_SQL_SERVER_PASSWORD: ${{ secrets.CDM5_SQL_SERVER_PASSWORD }} CDM5_SQL_SERVER_SERVER: ${{ secrets.CDM5_SQL_SERVER_SERVER }} CDM5_SQL_SERVER_USER: ${{ secrets.CDM5_SQL_SERVER_USER }} - CDM5_REDSHIFT_CDM_SCHEMA: ${{ secrets.CDM5_REDSHIFT_CDM_SCHEMA }} + CDM5_REDSHIFT_CDM54_SCHEMA: ${{ secrets.CDM5_REDSHIFT_CDM54_SCHEMA }} CDM5_REDSHIFT_OHDSI_SCHEMA: ${{ secrets.CDM5_REDSHIFT_OHDSI_SCHEMA }} CDM5_REDSHIFT_PASSWORD: ${{ secrets.CDM5_REDSHIFT_PASSWORD }} CDM5_REDSHIFT_SERVER: ${{ secrets.CDM5_REDSHIFT_SERVER }} diff --git a/tests/testthat/test-BatchProcess.R b/tests/testthat/test-BatchProcess.R index e80abfae..63b12e84 100644 --- a/tests/testthat/test-BatchProcess.R +++ b/tests/testthat/test-BatchProcess.R @@ -32,7 +32,7 @@ test_that("renderTranslateQueryApplyBatched works", { password = URLdecode(Sys.getenv("CDM5_ORACLE_PASSWORD")), server = Sys.getenv("CDM5_ORACLE_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_ORACLE_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_ORACLE_CDM54_SCHEMA") sql <- "SELECT TOP 10 * FROM @cdm_database_schema.vocabulary;" data <- renderTranslateQueryApplyBatched(connection, sql, @@ -52,7 +52,7 @@ test_that("renderTranslateQueryApplyBatched works", { password = URLdecode(Sys.getenv("CDM5_SQL_SERVER_PASSWORD")), server = Sys.getenv("CDM5_SQL_SERVER_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_SQL_SERVER_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA") sql <- "SELECT TOP 10 * FROM @cdm_database_schema.vocabulary;" data <- renderTranslateQueryApplyBatched(connection, @@ -73,7 +73,7 @@ test_that("renderTranslateQueryApplyBatched works", { password = URLdecode(Sys.getenv("CDM5_REDSHIFT_PASSWORD")), server = Sys.getenv("CDM5_REDSHIFT_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_REDSHIFT_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_REDSHIFT_CDM54_SCHEMA") sql <- "SELECT TOP 10 * FROM @cdm_database_schema.vocabulary;" data <- renderTranslateQueryApplyBatched(connection, diff --git a/tests/testthat/test-dataHash.R b/tests/testthat/test-dataHash.R index eb94709f..12501193 100644 --- a/tests/testthat/test-dataHash.R +++ b/tests/testthat/test-dataHash.R @@ -22,7 +22,7 @@ test_that("Compute data hash", { server = Sys.getenv("CDM5_SQL_SERVER_SERVER") ) connection <- connect(details) - hash <- computeDataHash(connection, Sys.getenv("CDM5_SQL_SERVER_CDM_SCHEMA")) + hash <- computeDataHash(connection, Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA")) expect_true(is.character(hash)) disconnect(connection) @@ -35,7 +35,7 @@ test_that("Compute data hash", { server = Sys.getenv("CDM5_ORACLE_SERVER") ) connection <- connect(details) - hash <- computeDataHash(connection, Sys.getenv("CDM5_ORACLE_CDM_SCHEMA")) + hash <- computeDataHash(connection, Sys.getenv("CDM5_ORACLE_CDM54_SCHEMA")) expect_true(is.character(hash)) disconnect(connection) @@ -48,7 +48,7 @@ test_that("Compute data hash", { server = Sys.getenv("CDM5_REDSHIFT_SERVER") ) connection <- connect(details) - hash <- computeDataHash(connection, Sys.getenv("CDM5_REDSHIFT_CDM_SCHEMA")) + hash <- computeDataHash(connection, Sys.getenv("CDM5_REDSHIFT_CDM54_SCHEMA")) expect_true(is.character(hash)) disconnect(connection) diff --git a/tests/testthat/test-dbplyr.R b/tests/testthat/test-dbplyr.R index f7705069..8f1a4863 100644 --- a/tests/testthat/test-dbplyr.R +++ b/tests/testthat/test-dbplyr.R @@ -22,7 +22,7 @@ test_that("Test dbplyr on SQL Server", { password = URLdecode(Sys.getenv("CDM5_SQL_SERVER_PASSWORD")), server = Sys.getenv("CDM5_SQL_SERVER_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_SQL_SERVER_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA") testDbplyrFunctions(connectionDetails, cdmDatabaseSchema) }) @@ -34,7 +34,7 @@ test_that("Test dbplyr on Oracle", { password = URLdecode(Sys.getenv("CDM5_ORACLE_PASSWORD")), server = Sys.getenv("CDM5_ORACLE_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_ORACLE_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_ORACLE_CDM54_SCHEMA") options(sqlRenderTempEmulationSchema = Sys.getenv("CDM5_ORACLE_OHDSI_SCHEMA")) testDbplyrFunctions(connectionDetails, cdmDatabaseSchema) }) @@ -47,7 +47,7 @@ test_that("Test dbplyr on RedShift", { password = URLdecode(Sys.getenv("CDM5_REDSHIFT_PASSWORD")), server = Sys.getenv("CDM5_REDSHIFT_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_REDSHIFT_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_REDSHIFT_CDM54_SCHEMA") testDbplyrFunctions(connectionDetails, cdmDatabaseSchema) }) diff --git a/tests/testthat/test-fetchResults.R b/tests/testthat/test-fetchResults.R index 6127b4a1..0f9039db 100644 --- a/tests/testthat/test-fetchResults.R +++ b/tests/testthat/test-fetchResults.R @@ -47,20 +47,20 @@ test_that("Fetch results", { password = URLdecode(Sys.getenv("CDM5_SQL_SERVER_PASSWORD")), server = Sys.getenv("CDM5_SQL_SERVER_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_SQL_SERVER_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA") sql <- "SELECT COUNT(*) AS row_count FROM @cdm_database_schema.vocabulary" renderedSql <- SqlRender::render(sql, cdm_database_schema = cdmDatabaseSchema) # Fetch data.frame: count <- querySql(connection, renderedSql) - expect_equal(count[1, 1], 71) + expect_equal(count[1, 1], 58) count <- renderTranslateQuerySql(connection, sql, cdm_database_schema = cdmDatabaseSchema) - expect_equal(count[1, 1], 71) + expect_equal(count[1, 1], 58) # Fetch Andromeda: andromeda <- Andromeda::andromeda() querySqlToAndromeda(connection, renderedSql, andromeda = andromeda, andromedaTableName = "test", snakeCaseToCamelCase = TRUE) - expect_equivalent(dplyr::collect(andromeda$test)$rowCount[1], 71) + expect_equivalent(dplyr::collect(andromeda$test)$rowCount[1], 58) renderTranslateQuerySqlToAndromeda(connection, sql, cdm_database_schema = cdmDatabaseSchema, @@ -68,7 +68,7 @@ test_that("Fetch results", { andromedaTableName = "test2", snakeCaseToCamelCase = TRUE ) - expect_equivalent(dplyr::collect(andromeda$test2)$rowCount[1], 71) + expect_equivalent(dplyr::collect(andromeda$test2)$rowCount[1], 58) Andromeda::close(andromeda) disconnect(connection) @@ -80,7 +80,7 @@ test_that("Fetch results", { password = URLdecode(Sys.getenv("CDM5_ORACLE_PASSWORD")), server = Sys.getenv("CDM5_ORACLE_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_ORACLE_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_ORACLE_CDM54_SCHEMA") sql <- "SELECT COUNT(*) AS row_count FROM @cdm_database_schema.vocabulary" renderedSql <- SqlRender::render(sql, cdm_database_schema = cdmDatabaseSchema) @@ -119,14 +119,14 @@ test_that("Fetch results", { # Fetch data.frame: count <- querySql(connection, renderedSql) - expect_equal(count[1, 1], 71) + expect_equal(count[1, 1], 58) count <- renderTranslateQuerySql(connection, sql, cdm_database_schema = cdmDatabaseSchema) - expect_equal(count[1, 1], 71) + expect_equal(count[1, 1], 58) # Fetch Andromeda: andromeda <- Andromeda::andromeda() querySqlToAndromeda(connection, renderedSql, andromeda = andromeda, andromedaTableName = "test", snakeCaseToCamelCase = TRUE) - expect_equivalent(dplyr::collect(andromeda$test)$rowCount[1], 71) + expect_equivalent(dplyr::collect(andromeda$test)$rowCount[1], 58) renderTranslateQuerySqlToAndromeda(connection, sql, cdm_database_schema = cdmDatabaseSchema, @@ -134,7 +134,7 @@ test_that("Fetch results", { andromedaTableName = "test2", snakeCaseToCamelCase = TRUE ) - expect_equivalent(dplyr::collect(andromeda$test2)$rowCount[1], 71) + expect_equivalent(dplyr::collect(andromeda$test2)$rowCount[1], 58) Andromeda::close(andromeda) disconnect(connection) @@ -146,20 +146,20 @@ test_that("Fetch results", { password = URLdecode(Sys.getenv("CDM5_REDSHIFT_PASSWORD")), server = Sys.getenv("CDM5_REDSHIFT_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_REDSHIFT_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_REDSHIFT_CDM54_SCHEMA") sql <- "SELECT COUNT(*) AS row_count FROM @cdm_database_schema.vocabulary" renderedSql <- SqlRender::render(sql, cdm_database_schema = cdmDatabaseSchema) # Fetch data.frame: count <- querySql(connection, renderedSql) - expect_equal(count[1, 1], 91) + expect_equal(count[1, 1], 58) count <- renderTranslateQuerySql(connection, sql, cdm_database_schema = cdmDatabaseSchema) - expect_equal(count[1, 1], 91) + expect_equal(count[1, 1], 58) # Fetch Andromeda: andromeda <- Andromeda::andromeda() querySqlToAndromeda(connection, renderedSql, andromeda = andromeda, andromedaTableName = "test", snakeCaseToCamelCase = TRUE) - expect_equivalent(dplyr::collect(andromeda$test)$rowCount[1], 91) + expect_equivalent(dplyr::collect(andromeda$test)$rowCount[1], 58) renderTranslateQuerySqlToAndromeda(connection, sql, cdm_database_schema = cdmDatabaseSchema, @@ -167,7 +167,7 @@ test_that("Fetch results", { andromedaTableName = "test2", snakeCaseToCamelCase = TRUE ) - expect_equivalent(dplyr::collect(andromeda$test2)$rowCount[1], 91) + expect_equivalent(dplyr::collect(andromeda$test2)$rowCount[1], 58) Andromeda::close(andromeda) disconnect(connection) @@ -233,7 +233,7 @@ test_that("dbFetch works", { password = URLdecode(Sys.getenv("CDM5_ORACLE_PASSWORD")), server = Sys.getenv("CDM5_ORACLE_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_ORACLE_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_ORACLE_CDM54_SCHEMA") sql <- "SELECT * FROM @cdm_database_schema.vocabulary FETCH FIRST 10 ROWS ONLY" renderedSql <- SqlRender::render(sql, cdm_database_schema = cdmDatabaseSchema) @@ -251,7 +251,7 @@ test_that("dbFetch works", { password = URLdecode(Sys.getenv("CDM5_SQL_SERVER_PASSWORD")), server = Sys.getenv("CDM5_SQL_SERVER_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_SQL_SERVER_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA") sql <- "SELECT TOP 10 * FROM @cdm_database_schema.vocabulary" renderedSql <- SqlRender::render(sql, cdm_database_schema = cdmDatabaseSchema) @@ -269,7 +269,7 @@ test_that("dbFetch works", { password = URLdecode(Sys.getenv("CDM5_REDSHIFT_PASSWORD")), server = Sys.getenv("CDM5_REDSHIFT_SERVER") ) - cdmDatabaseSchema <- Sys.getenv("CDM5_REDSHIFT_CDM_SCHEMA") + cdmDatabaseSchema <- Sys.getenv("CDM5_REDSHIFT_CDM54_SCHEMA") sql <- "SELECT TOP 10 * FROM @cdm_database_schema.vocabulary" renderedSql <- SqlRender::render(sql, cdm_database_schema = cdmDatabaseSchema) diff --git a/tests/testthat/test-getTableNames.R b/tests/testthat/test-getTableNames.R index 215b885d..5c0e11fe 100644 --- a/tests/testthat/test-getTableNames.R +++ b/tests/testthat/test-getTableNames.R @@ -23,9 +23,9 @@ test_that("Get table names", { server = Sys.getenv("CDM5_SQL_SERVER_SERVER") ) connection <- connect(details) - tables <- getTableNames(connection, Sys.getenv("CDM5_SQL_SERVER_CDM_SCHEMA")) + tables <- getTableNames(connection, Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA")) expect_true("person" %in% tables) - expect_true(existsTable(connection, Sys.getenv("CDM5_SQL_SERVER_CDM_SCHEMA"), "person")) + expect_true(existsTable(connection, Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA"), "person")) # This does not work on SQL Server: # expect_true(DBI::dbExistsTable(connection, "person")) disconnect(connection) @@ -38,9 +38,9 @@ test_that("Get table names", { server = Sys.getenv("CDM5_ORACLE_SERVER") ) connection <- connect(details) - tables <- getTableNames(connection, Sys.getenv("CDM5_ORACLE_CDM_SCHEMA")) - expect_true("person" %in% tables) - expect_true(existsTable(connection, Sys.getenv("CDM5_ORACLE_CDM_SCHEMA"), "person")) + tables <- getTableNames(connection, Sys.getenv("CDM5_ORACLE_CDM54_SCHEMA")) + expect_true("person" %in% tables) + expect_true(existsTable(connection, Sys.getenv("CDM5_ORACLE_CDM54_SCHEMA"), "person")) expect_true(DBI::dbExistsTable(connection, "person")) disconnect(connection) @@ -67,9 +67,9 @@ test_that("Get table names", { server = Sys.getenv("CDM5_REDSHIFT_SERVER") ) connection <- connect(details) - tables <- getTableNames(connection, Sys.getenv("CDM5_REDSHIFT_CDM_SCHEMA")) + tables <- getTableNames(connection, Sys.getenv("CDM5_REDSHIFT_CDM54_SCHEMA")) expect_true("person" %in% tables) - expect_true(existsTable(connection, Sys.getenv("CDM5_REDSHIFT_CDM_SCHEMA"), "person")) + expect_true(existsTable(connection, Sys.getenv("CDM5_REDSHIFT_CDM54_SCHEMA"), "person")) expect_true(DBI::dbExistsTable(connection, "person")) disconnect(connection) @@ -118,9 +118,9 @@ test_that("Get table names using DBI drivers", { PWD = Sys.getenv("CDM5_SQL_SERVER_PASSWORD"), TrustServerCertificate = "yes", Port = 1433) - tables <- getTableNames(connection, Sys.getenv("CDM5_SQL_SERVER_CDM_SCHEMA")) + tables <- getTableNames(connection, Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA")) expect_true("person" %in% tables) - expect_true(existsTable(connection, Sys.getenv("CDM5_SQL_SERVER_CDM_SCHEMA"), "person")) + expect_true(existsTable(connection, Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA"), "person")) DBI::dbDisconnect(connection) # Sqlite -------------------------------------------------- @@ -152,8 +152,8 @@ test_that("Get table names using DBI drivers", { user = Sys.getenv("CDM5_REDSHIFT_USER"), password = Sys.getenv("CDM5_REDSHIFT_PASSWORD")) - tables <- getTableNames(connection, Sys.getenv("CDM5_REDSHIFT_CDM_SCHEMA")) + tables <- getTableNames(connection, Sys.getenv("CDM5_REDSHIFT_CDM54_SCHEMA")) expect_true("person" %in% tables) - expect_true(existsTable(connection, Sys.getenv("CDM5_REDSHIFT_CDM_SCHEMA"), "person")) + expect_true(existsTable(connection, Sys.getenv("CDM5_REDSHIFT_CDM54_SCHEMA"), "person")) DBI::dbDisconnect(connection) })