test_that("summarise omop snapshot works", {
  skip_on_cran()
  cdm <- cdmEunomia()

  expect_no_error(result <- summariseOmopSnapshot(cdm))
  expect_true(inherits(summariseOmopSnapshot(cdm), "summarised_result"))

  # Check that table works
  expect_no_error(x <- tableOmopSnapshot(summariseOmopSnapshot(cdm)))
  expect_true(inherits(x, "gt_tbl"))

  x <- summariseOmopSnapshot(cdm) |>
    dplyr::filter(result_id == 0.1)
  expect_warning(inherits(tableOmopSnapshot(x), "gt_tbl"))

  # Check result type
  checkResultType(x, "summarise_omop_snapshot")

  dropCreatedTables(cdm = cdm)
})