tests/testthat/test-utilsCdm.R

In TestGenerator: Integration Unit Tests for Pharmacoepidemiological Studies

test_that("CDM emptied", {
  skip("manual test")
  conn <- DBI::dbConnect(duckdb::duckdb(CDMConnector::eunomiaDir("synthea-allergies-10k")))
  cdm <- CDMConnector::cdmFromCon(conn, cdmSchema = "main", writeSchema = "main")
  cdm <- emptyCDM(cdm = cdm, con = conn)
  expect_equal(class(cdm), "cdm_reference")
  countPerson <- DBI::dbGetQuery(conn, "SELECT COUNT(*) FROM person")
  expect_equal(countPerson[[1]], 0)
  DBI::dbDisconnect(conn, shutdown = TRUE)
})