tests/testthat/test-mockObservationPeriod.R

In omock: Creation of Mock Observational Medical Outcomes Partnership Common Data Model

test_that("mockObservationPeriod", {
  expect_no_error(
    cdm <- emptyCdmReference(cdmName = "test") |>
      mockPerson(
        nPerson = 1000,
        birthRange = as.Date(c("1990-01-01", "2000-01-01")),
        seed = 1
      ) |>
      mockObservationPeriod()
  )
  expect_true(all(colnames(cdm$observation_period) %in%
    c(
      "observation_period_id", "person_id",
      "observation_period_start_date",
      "observation_period_end_date",
      "period_type_concept_id"
    )))
  expect_equal(
    cdm$observation_period$person_id,
    cdm$person$person_id
  )
  expect_true(all(cdm$observation_period$observation_period_start_date <
    cdm$observation_period$observation_period_end_date))
  expect_true(all(cdm$observation_period$observation_period_id ==
    cdm$observation_period$person_id))
})

test_that("seed test", {
  cdm1 <- omock::mockPerson(nPerson = 10, seed = 1) |>
    omock::mockObservationPeriod(seed = 1)

  cdm2 <- omock::mockPerson(nPerson = 10, seed = 1) |>
    omock::mockObservationPeriod()

  cdm3 <- omock::mockPerson(nPerson = 10, seed = 1) |>
    omock::mockObservationPeriod(seed = 1)

  expect_error(expect_equal(cdm1$observation_period, cdm2$observation_period))
  expect_equal(cdm1$observation_period, cdm3$observation_period)

})