test_that("survival summary", {
  skip_on_cran()

    cdm <- mockMGUS2cdm()
  surv <- estimateSingleEventSurvival(cdm,
                                      targetCohortTable = "mgus_diagnosis",
                                      targetCohortId = 1,
                                      outcomeCohortTable = "death_cohort",
                                      outcomeCohortId = 1,
                                      eventGap = 7
  )

  tibble::is_tibble(survivalSummary(surv))

  CDMConnector::cdmDisconnect(cdm)

  })