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) })