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")
  testthat::skip_if_not("duckdb" %in% dbToTest)
  con <- local_eunomia_con()
  cdm <- cdmFromCon(con, "main", "main")

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