From d35ff2c32872dd8eea18a87cc64a766543ada572 Mon Sep 17 00:00:00 2001 From: Adam Black Date: Tue, 30 Jul 2024 10:51:55 +0200 Subject: [PATCH] bring back inSchema --- tests/testthat/test-01-db-DBI.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-01-db-DBI.R b/tests/testthat/test-01-db-DBI.R index 428a1a21..0cfeaeb4 100644 --- a/tests/testthat/test-01-db-DBI.R +++ b/tests/testthat/test-01-db-DBI.R @@ -71,7 +71,8 @@ test_dbi <- function(con, cdm_schema, write_schema) { expect_true(nrow(person) == 1) - DBI::dbRemoveTable(con, DBI::Id(write_schema, "temp_test")) + # DBI::dbRemoveTable(con, DBI::Id(write_schema, "temp_test")) + DBI::dbRemoveTable(con, inSchema(schema = write_schema, table = "temp_test", dbms = dbms(con))) # TODO add this test # DBI::dbRemoveTable(con, DBI::Id(schema = write_schema, table = "temp_test")) # expect_false("temp_test" %in% list_tables(con, schema = write_schema)) @@ -94,7 +95,7 @@ test_dbi <- function(con, cdm_schema, write_schema) { } # dbToTest = c("") -dbtype = "snowflake" +# dbtype = "snowflake" for (dbtype in dbToTest) { test_that(glue::glue("{dbtype} - dbi"), { if (!(dbtype %in% ciTestDbs)) skip_on_ci()