test_that("basic mock cdm", {
  skip_on_cran()
  if(sparklyr::spark_installed_versions() |> nrow() == 0){
    skip()
  }
  folder <- file.path(tempdir(), "temp_spark")
  cdm <- mockSparkCdm(path = folder)
  expect_true(is.null(cdmSchema(cdm)))
  expect_true(is.null(writeSchema(cdm)))
  expect_true(writePrefix(cdm) == "my_study_")
  # overwrite
  cdm <- mockSparkCdm(path = folder)
  person_5 <- cdm$person |>
    head(5) |>
    dplyr::collect()
  expect_true(nrow(person_5) == 5)

  # analytics works
  expect_no_error(snapshot <- OmopSketch::summariseObservationPeriod(cdm$observation_period))

  cdmDisconnect(cdm)
  unlink(folder, recursive = TRUE)
})