tests/testthat/test-cdmSelect.R

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

test_that("cdmSelect", {
  cdm <- emptyCdmReference("test db")
  expect_true(all(c("person", "observation_period") %in% names(cdm)))
  cdm1 <- cdm |> cdmSelect("person")
  expect_true("person" %in% names(cdm1))
  expect_false("observation_period" %in% names(cdm1))
  cdm2 <- cdm |> cdmSelect(!"person")
  expect_false("person" %in% names(cdm2))
  expect_true("observation_period" %in% names(cdm2))
})