tests/testthat/test-methodComputeTable.R

In omopgenerics: Methods and Classes for the OMOP Common Data Model

test_that("logging queries does nothing if local cdm", {
  src <- newLocalSource()
  cdmTables <- list(
    "person" = dplyr::tibble(
      person_id = 1L, gender_concept_id = 0L, year_of_birth = 1990L,
      race_concept_id = 0L, ethnicity_concept_id = 0L
    ) |>
      newCdmTable(src, "person"),
    "observation_period" = dplyr::tibble(
      observation_period_id = 1L, person_id = 1L,
      observation_period_start_date = as.Date("2000-01-01"),
      observation_period_end_date = as.Date("2023-12-31"),
      period_type_concept_id = 0L
    ) |>
      newCdmTable(src, "observation_period")
  )
  cdm <- newCdmReference(tables = cdmTables, cdmName = "mock")

  withr::local_options("omopgenerics.log_sql_path" = tempdir())
  expect_no_error(result <- cdm$person |>
    dplyr::tally() |>
    dplyr::compute())

  withr::local_options("omopgenerics.log_sql_explain" = TRUE)
  expect_no_error(result <- cdm$person |>
    dplyr::tally() |>
    dplyr::compute())
})