tests/testthat/test-deprecations.R

In CDMConnector: Connect to an OMOP Common Data Model

test_that("computeQuery gives warning", {
  testthat::skip_if_not_installed("duckdb")
  con <- DBI::dbConnect(duckdb::duckdb(eunomiaDir()))
  cdm <- cdmFromCon(con, "main", "main")

  expect_warning({
    tbl <- cdm$person %>%
      dplyr::mutate(a = "a") %>%
      computeQuery()
  })

  DBI::dbDisconnect(con, shutdown = TRUE)
})