tests/testthat/test-mockMGUS2cdm.R

In CohortSurvival: Estimate Survival from Common Data Model Cohorts

test_that("mock mgus2 as a cdm reference", {
  skip_on_cran()
  cdm <- mockMGUS2cdm()

  expect_true(cdm$person %>%
    dplyr::tally() %>%
    dplyr::pull("n") ==
    survival::mgus2 %>%
      dplyr::tally() %>%
      dplyr::pull("n"))

  CDMConnector::cdmDisconnect(cdm)
})