tests/testthat/test-databaseDiagnostics.R

In PhenotypeR: Assess Study Cohorts Using a Common Data Model

test_that("multiplication works", {
  testthat::skip_on_cran()

  cdm_local <- omock::mockCdmReference() |>
    omock::mockPerson(nPerson = 100) |>
    omock::mockObservationPeriod() |>
    omock::mockConditionOccurrence() |>
    omock::mockDrugExposure() |>
    omock::mockObservation() |>
    omock::mockMeasurement() |>
    omock::mockVisitOccurrence() |>
    omock::mockProcedureOccurrence() |>
    omock::mockCohort(name = "my_cohort", numberCohorts = 2)

  db <- DBI::dbConnect(duckdb::duckdb())
  cdm <- CDMConnector::copyCdmTo(con = db, cdm = cdm_local,
                                 schema ="main", overwrite = TRUE)

  db_diag <- databaseDiagnostics(cdm)
  expect_no_error(OmopSketch::tableOmopSnapshot(db_diag))

  CDMConnector::cdmDisconnect(cdm = cdm)

})